(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    279877,       6302]
NotebookOptionsPosition[    256874,       5824]
NotebookOutlinePosition[    258065,       5858]
CellTagsIndexPosition[    257984,       5853]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["11.3", "HistoryData",
  CellTags->"New",ExpressionUUID->"2ad614b4-c687-4300-9d42-ae6fbf1a2aee"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"799e4642-8501-4b62-9695-01f449e92fb0"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"8b43b1c5-09e9-4d2a-aaae-109c3e83ba32"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"6cdfdd19-a7da-4746-9584-82a8a5bbe887"]
}], "History",
 CellChangeTimes->{{3.720758814789288*^9, 3.7207588152991753`*^9}},
 CellID->341476719,ExpressionUUID->"1f2e1ab5-4548-4110-8a35-73652ea06424"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"d73ebc44-2c87-4504-abd1-312e39685f92"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"ab4928eb-529f-4615-a686-77ebd1fdd1b3"],

Cell["FEMUtils`", "Categorization",
 CellChangeTimes->{3.720758605404336*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"688dfc12-dca9-4b6f-822d-7d2d928a54c5"],

Cell["FEMUtils`", "Categorization",
 CellChangeTimes->{3.7207586030754013`*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"152c3014-d6a9-4adf-b8fd-2715652c9e25"],

Cell["FEMAddOns/ref/ElementMeshSmoothing", "Categorization",
 CellChangeTimes->{{3.720758570831129*^9, 3.720758576289115*^9}, {
  3.720758640777224*^9, 3.720758648712862*^9}},
 CellLabel->"URI",ExpressionUUID->"de289b9b-6ded-4f3a-8986-0c71dc9d3dbe"],

Cell["XXXX", "Categorization",
 CellLabel->"Title Modifier",
 CellID->172747495,ExpressionUUID->"0a199aae-e015-4dd9-b3fe-bf081b7da380"]
}, Closed]],

Cell[CellGroupData[{

Cell["Synonyms", "SynonymsSection",
 CellID->1427418553,ExpressionUUID->"ec3c0814-ce88-49c5-8cb6-cfffad1b7b3c"],

Cell["Mesh Smoothing", "Keywords",
 CellChangeTimes->{{3.720758772850594*^9, 3.720758776777625*^9}},
 CellID->1164421360,ExpressionUUID->"5e0a79cb-7fef-4945-abb9-50f6821f7e0d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"a2ed86e2-0e53-4629-857f-cab489034901"],

Cell["Mesh", "Synonyms",
 CellChangeTimes->{{3.720758717638198*^9, 3.7207587181677027`*^9}},
 CellID->1251652828,ExpressionUUID->"f4e193d5-360d-418f-af7a-cb185854833a"],

Cell["Smoothing", "Synonyms",
 CellChangeTimes->{{3.7207587191600513`*^9, 3.720758721803499*^9}},
 CellID->997284865,ExpressionUUID->"22c19cd5-28de-4996-be92-9e69810502d1"],

Cell["ElementMesh", "Synonyms",
 CellChangeTimes->{{3.720758722673706*^9, 3.720758724331151*^9}},
 CellID->1007290203,ExpressionUUID->"23f1a51d-f285-40ef-9d71-f12813e75125"],

Cell["Laplacian", "Synonyms",
 CellID->2029454323,ExpressionUUID->"8d50304e-a413-4fc4-a18e-d646e69284b7"],

Cell["Laplacian smoothing", "Synonyms",
 CellChangeTimes->{{3.720758725600518*^9, 3.720758729905188*^9}},
 CellID->1129330320,ExpressionUUID->"bc86360b-133a-4a48-8d3b-09a8f5ea67f5"],

Cell["Iterative smoothing", "Synonyms",
 CellChangeTimes->{{3.720758745130774*^9, 3.7207587527006407`*^9}},
 CellID->55967654,ExpressionUUID->"274157c0-97ef-4b33-9971-5578ea87614e"],

Cell["quality", "Synonyms",
 CellChangeTimes->{{3.720758754779158*^9, 3.7207587565961637`*^9}},
 CellID->1750894467,ExpressionUUID->"d15b163e-dc25-4059-bd62-51f7357a8816"],

Cell["mesh quality", "Synonyms",
 CellChangeTimes->{{3.720758757895797*^9, 3.720758760413114*^9}},
 CellID->1428214698,ExpressionUUID->"cb3a3e19-c00b-4c82-a5c5-0e803f0c8153"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"8a0988af-bf65-4629-b30e-aeacb857530d"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"a4158164-1d70-4fc8-8c2c-fea31700e348"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"99ab4bd3-01a1-4841-a23e-8b5f9fe9d6cd"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"a4fe9f20-765d-47e3-b117-2e7c3e45142b"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"f14736e5-e15f-4a50-be94-e7dc0e07de4d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"810dc19e-18ac-4c89-8341-292d80fb9785"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->49458704,ExpressionUUID->"9d27a21f-cc1b-4e9f-b63f-3d2b0b517324"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"01400ebd-5b6e-49ef-bb78-5c5267afa8a1"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->422270209,ExpressionUUID->"105dd6b9-3efc-43af-ae62-4505d97bc606"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->545239557,ExpressionUUID->"b04ee47d-3327-4c90-9fc2-6ccfebaec906"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->121292707,ExpressionUUID->"0e00c25a-3820-4a0f-a802-96d24172a381"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->29314406,ExpressionUUID->"69d924b3-a52c-4bbd-ba3e-1110f3675ecc"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->96001539,ExpressionUUID->"8de86c7b-bcc2-438c-9f67-9acb0df0f156"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->123278822,ExpressionUUID->"7633b613-2dcc-46ee-9d0a-6a4dca8bf0d9"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"d9ed06d4-7666-4eb1-8716-3434501203c3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Security Details", "SecuritySection",
 CellID->13551076,ExpressionUUID->"4658bc7e-74f0-4073-9504-86900ccc4bbf"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{CheckboxBox[
        Dynamic[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "SecurityRisk"}, False]]],
       StyleBox[
       "\"   Potential security risk\"", FontFamily -> "Arial", FontSize -> 
        10, StripOnInput -> False]},
      "RowDefault"]},
    {
     DynamicBox[ToBoxes[
       If[
        TrueQ[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "SecurityRisk"}]], 
        InputField[
         Dynamic[
          CurrentValue[
           EvaluationNotebook[], {TaggingRules, "SecurityExplanation"}, ""]], 
         String, FieldHint -> "How so? (optional)", FieldSize -> {40, 5}, 
         BaseStyle -> {FontFamily -> "Arial", FontSize -> 12}], ""], 
       StandardForm],
      ImageSizeCache->{0., {0., 6.}}]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "SecurityDetails",
 CellID->2488900,ExpressionUUID->"98cad111-8c0b-42f9-838c-9cf200357297"]
}, Closed]],

Cell[CellGroupData[{

Cell["ElementMeshSmoothing", "ObjectName",
 CellChangeTimes->{3.720758458631097*^9},
 CellID->1224892054,ExpressionUUID->"4a896283-78ef-4ea9-ab9e-264091c00a84"],

Cell["This notebook has CellContext -> Notebook set", "Notes", "ExcludedMaterial",
 CellChangeTimes->{{3.561518238097262*^9, 3.5615182651494627`*^9}, {
  3.561525111237418*^9, 3.561525127376473*^9}},
 CellID->55248371,ExpressionUUID->"4351ca8b-34b8-4ffe-a675-c109467427a6"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"0e654c5b-c009-4f23-9279-912acdb6343a"],
 Cell[BoxData[
  RowBox[{"ElementMeshSmoothing", "[", 
   StyleBox["emesh", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "4ac3dc6d-04a9-4476-abaa-693e85dabdb5"],
 " \[LineSeparator]returns an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "4379e13e-7046-4939-9626-aeec841acc17"],
 " object with an improved mean quality measure of ",
 Cell[BoxData[
  StyleBox["emesh", "TI"]], "InlineFormula",ExpressionUUID->
  "b5373b12-3c2e-4165-8ead-eaece4c4609a"],
 "."
}], "Usage",
 CellChangeTimes->{{3.720758447691133*^9, 3.72075845509758*^9}, {
  3.72075887355217*^9, 3.720758919341943*^9}, {3.7207592185496473`*^9, 
  3.720759292737658*^9}},
 CellID->982511436,ExpressionUUID->"d010ab56-0ec9-4101-a5be-e93529187581"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"ElementMeshSmoothing", "[", 
   StyleBox["emesh", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "fd940f2a-a1e6-4e0a-b42a-dabd1f87a7c8"],
 " returns a new ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "5ae73384-a4c8-487d-9818-5015e2e09d76"],
 " object."
}], "Notes",
 CellChangeTimes->{{3.72075933907106*^9, 3.7207593518072863`*^9}},
 CellID->1067943069,ExpressionUUID->"3d606fcd-433d-4d67-9ef9-f7bf14b124c3"],

Cell[TextData[{
 "The mean mesh quality of the returned ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "f0d9f598-af20-4b00-9e1d-307bd9a06b69"],
 " object will be higher than that of ",
 Cell[BoxData[
  StyleBox["emesh", "TI"]], "InlineFormula",ExpressionUUID->
  "5cc90e68-1d2c-4869-9605-e0f581c9b3eb"],
 "."
}], "Notes",
 CellChangeTimes->{{3.720759477212558*^9, 3.7207595085994177`*^9}},
 CellID->808899030,ExpressionUUID->"b6039c9d-cce8-45e2-be56-2502b2a905c9"],

Cell[TextData[{
 Cell[BoxData[
 "ElementMeshSmoothing"], "InlineFormula",ExpressionUUID->
  "b38f1c7d-0b4c-4f62-9410-54613bb582ed"],
 " has the following options:"
}], "Notes",
 CellChangeTimes->{{3.6016430543805723`*^9, 3.60164307503295*^9}, {
  3.6018932567339077`*^9, 3.601893259479998*^9}, {3.601894718206567*^9, 
  3.601894718523612*^9}, {3.720759399058186*^9, 3.7207594032847977`*^9}},
 CellID->1269807375,ExpressionUUID->"0ddec283-bd85-4d34-ab5e-0ce4b3f55618"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "bf10cd51-094a-422d-b43c-857ed9a02df1"], 
    ButtonBox["Method",
     BaseStyle->"Link"], 
    ButtonBox["Automatic",
     BaseStyle->"Link"], Cell[
    "which method to use", "TableText",ExpressionUUID->
     "1dbf5a60-308b-418e-95f1-46b3bbd0c894"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.55386822278756*^9, 3.553868314093425*^9}, 
   3.553868350077631*^9, {3.553868390761293*^9, 3.553868423899806*^9}, {
   3.5538684833435297`*^9, 3.55386869993401*^9}, {3.553868764700993*^9, 
   3.553869056962985*^9}, {3.553869094560028*^9, 3.55386917933996*^9}, {
   3.553870127110208*^9, 3.5538701316126003`*^9}, {3.5538703298324327`*^9, 
   3.553870376529709*^9}, {3.553870422725457*^9, 3.553870554136312*^9}, {
   3.553870611659387*^9, 3.553870617781814*^9}, {3.55387074521999*^9, 
   3.553870796240074*^9}, {3.5539725043470716`*^9, 3.55397251442715*^9}, {
   3.5539733863412447`*^9, 3.553973414834116*^9}, {3.5541245293856583`*^9, 
   3.55412456573063*^9}, {3.554124617888015*^9, 3.554124666211043*^9}, {
   3.554125816315868*^9, 3.55412583811583*^9}, {3.557024168625149*^9, 
   3.5570242151669397`*^9}, {3.558069529947801*^9, 3.558069538790587*^9}, {
   3.558069594696694*^9, 3.55806961485141*^9}, {3.558403564254754*^9, 
   3.5584035642559757`*^9}, {3.558403775921674*^9, 3.558403800089933*^9}, {
   3.5584038415223722`*^9, 3.55840384672307*^9}, {3.5584039318884897`*^9, 
   3.5584039534306507`*^9}, {3.5584040170427723`*^9, 3.558404042271687*^9}, {
   3.5584041534448*^9, 3.558404159057136*^9}, {3.5584042098433847`*^9, 
   3.5584042466335907`*^9}, {3.558404282631765*^9, 3.5584042917184896`*^9}, {
   3.558404516714439*^9, 3.5584045310772343`*^9}, {3.5586530724341297`*^9, 
   3.558653141767536*^9}, {3.571700318536765*^9, 3.571700318538384*^9}, {
   3.5726965485099297`*^9, 3.5726965941814966`*^9}, {3.572696651557234*^9, 
   3.572696651557234*^9}, {3.5878030891106052`*^9, 3.587803122018692*^9}, {
   3.58780353318237*^9, 3.5878035720172253`*^9}, {3.587803960523254*^9, 
   3.587804045139935*^9}, {3.5878986712995167`*^9, 3.587898687249706*^9}, {
   3.601642176703842*^9, 3.601642237629386*^9}, {3.6016423039106073`*^9, 
   3.601642317259775*^9}, {3.601642408670248*^9, 3.601642417943828*^9}, {
   3.601642469469469*^9, 3.601642524012864*^9}, {3.601642709060404*^9, 
   3.601642998750038*^9}, {3.60189326599704*^9, 3.601893287905517*^9}, {
   3.7207594074252157`*^9, 3.720759422777893*^9}},
 CellID->698312613,ExpressionUUID->"a3f2a52e-f28b-422b-a38a-1742fd33e9c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"647037d3-6c20-41d2-9184-46ebef8543e5"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"5db9e561-03f2-47fa-a7ae-b030b80958e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"e7c50808-3da8-4a62-a466-d3f8e14e2aba"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"78b4738e-b8d7-4040-9e79-0e8e1839dc5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"a05974aa-2d00-4779-8619-868ab1907d96"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"893a84d9-9c9e-400f-b3c8-03a98d12b504"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"854261b9-ae8d-4f15-8c30-0db98304e5f9"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ToElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ToElementMesh"]], "InlineFormula",
  ExpressionUUID->"62ccae5e-52a9-4e30-b37d-bff747c4ddb8"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DistMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMAddOns/ref/DistMesh"]], "InlineFormula",
  ExpressionUUID->"cd1914ce-aacf-492c-91f8-cd1507f26f51"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ExpressionUUID->"4cabc157-8b1d-4fd2-bdc1-ac603058c02d"]
}], "SeeAlso",
 TaggingRules->{"AnnotationsDeleted" -> True},
 CellChangeTimes->{{3.6018927462618923`*^9, 3.6018927975602083`*^9}, {
   3.6379196258540277`*^9, 3.6379196792535973`*^9}, {3.637919828698298*^9, 
   3.637919836965789*^9}, 3.637919879269414*^9, {3.7207599117578583`*^9, 
   3.720759914572733*^9}},
 CellID->929782353,ExpressionUUID->"85c545fc-61ce-42ae-a32b-c01415f3fc3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"56b4d9ad-831f-469e-b211-ab9c8bde6fcc"],

Cell["Autogenerated", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"56d40386-8ab1-4cc8-a03e-645f32de6461"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"733dbecb-6b5c-4ec0-bea2-70a3073cee61"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "e9625bab-9cc7-4d39-a53d-3e8c86d6df0a"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1346429663,ExpressionUUID->"63609511-7994-4a9a-a999-922b0e7e4a3a"],

Cell["Load the package:", "ExampleText",
 CellID->810745662,ExpressionUUID->"c4808e7e-38d3-4080-a156-c40528bd9a42"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<FEMAddOns`\>\"", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.651562811248743*^9, 3.651562816372716*^9}, {
   3.7207595263946533`*^9, 3.720759528280603*^9}, 3.720759601932168*^9},
 CellLabel->"In[1]:=",
 CellID->25391782,ExpressionUUID->"2e29d155-73fd-440f-ae8c-4eebb2a3cc17"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "51014afc-ffa8-4e89-ada6-0431370db74f"],
 " from a ",
 Cell[BoxData[
  ButtonBox["Disk",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "acdc578f-7629-4af2-abae-1c9a316b18f5"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9},
 CellID->670526423,ExpressionUUID->"61ebf329-4491-49e9-bc85-67c2822e6445"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"om", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{"Disk", "[", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7207595805879707`*^9, 3.720759587379307*^9}},
 CellLabel->"In[2]:=",
 CellID->1888611728,ExpressionUUID->"6925f07b-e3e5-4bbb-a9d4-0ec796967357"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720759590147121*^9, 3.720763210008287*^9, 
  3.720764349498197*^9, 3.7207644041190042`*^9},
 CellLabel->"Out[2]=",
 CellID->303323037,ExpressionUUID->"c5467913-7c17-4bf5-af82-c3fd7650823e"]
}, Open  ]],

Cell[TextData[{
 "Smooth the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "2afc8365-3fdc-46fb-8030-65c18191617a"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}},
 CellID->145075508,ExpressionUUID->"2ae55c4d-b715-49c4-9c57-151247dcb240"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]], "Input",
 CellChangeTimes->{{3.720763283935849*^9, 3.7207632974677143`*^9}},
 CellLabel->"In[3]:=",
 CellID->173350358,ExpressionUUID->"c62a0638-7e74-4911-8e9a-d5903d689b9e"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720763299788437*^9, 3.7207643509559593`*^9, 
  3.720764404195158*^9},
 CellLabel->"Out[3]=",
 CellID->2070836204,ExpressionUUID->"e3fd4276-3132-4aff-aef1-e352616660b3"]
}, Open  ]],

Cell[TextData[{
 "Visualize the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "fc412045-dcb9-4a11-b3e4-8b985f4cb2eb"],
 " quality distribution:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.7207633889430437`*^9, 3.720763415274724*^9}, {3.7207635898064947`*^9, 
  3.720763648024302*^9}},
 CellID->127870626,ExpressionUUID->"00e3e3f9-85f0-452c-a1e2-e50bc292ba3d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Join", "@@", 
     RowBox[{"om", "[", "\"\<Quality\>\"", "]"}]}], ",", 
    RowBox[{"Join", "@@", 
     RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735724305232*^9, 3.720735799135557*^9}},
 CellLabel->"In[4]:=",
 CellID->2066092838,ExpressionUUID->"70d50000-4e68-4662-a4e0-b7cbf5749fbb"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.567], Thickness[Small]}], {{}, 
     {RGBColor[0.97858, 0.678934, 0.157834], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.66, 0.}, {0.68, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{37.242647058823536`, 55.98572664359858}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.7, 0.}, {0.72, 4}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{73.22880622837363, 91.97188581314867}, {
           77.50213827733032, 81.93330436462277}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.72, 0.}, {0.74, 2}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{91.22188581314867, 109.96496539792383`}, {
           79.34272132097654, 81.93330436462277}}],
         StatusArea[#, 2]& ,
         TagBoxNote->"2"],
        StyleBox["2", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[2, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.74, 0.}, {0.76, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{109.21496539792383`, 127.958044982699}, {
           76.5818467555072, 81.93330436462277}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.76, 0.}, {0.78, 24}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{127.208044982699, 145.95112456747404`}, {
           59.096307840868036`, 81.93330436462277}}],
         StatusArea[#, 24]& ,
         TagBoxNote->"24"],
        StyleBox["24", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[24, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.78, 0.}, {0.8, 13}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{145.20112456747404`, 163.9442041522492}, {
           69.2195145809223, 81.93330436462277}}],
         StatusArea[#, 13]& ,
         TagBoxNote->"13"],
        StyleBox["13", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[13, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.8, 0.}, {0.82, 15}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{163.1942041522492, 181.93728373702413`}, {
           67.37893153727606, 81.93330436462277}}],
         StatusArea[#, 15]& ,
         TagBoxNote->"15"],
        StyleBox["15", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[15, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 23}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702413`, 199.9303633217993}, {
           60.01659936269115, 81.93330436462277}}],
         StatusArea[#, 23]& ,
         TagBoxNote->"23"],
        StyleBox["23", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[23, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 18}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217993, 217.92344290657434`}, {
           64.61805697180672, 81.93330436462277}}],
         StatusArea[#, 18]& ,
         TagBoxNote->"18"],
        StyleBox["18", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[18, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 47}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{217.17344290657434`, 235.9165224913495}, {
           37.92960283893641, 81.93330436462277}}],
         StatusArea[#, 47]& ,
         TagBoxNote->"47"],
        StyleBox["47", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[47, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 35}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913495, 253.90960207612454`}, {
           48.97310110081378, 81.93330436462277}}],
         StatusArea[#, 35]& ,
         TagBoxNote->"35"],
        StyleBox["35", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[35, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 46}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612454`, 271.9026816608997}, {
           38.84989436075953, 81.93330436462277}}],
         StatusArea[#, 46]& ,
         TagBoxNote->"46"],
        StyleBox["46", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[46, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 60}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{271.1526816608997, 289.89576124567463`}, {
           25.965813055235927`, 81.93330436462277}}],
         StatusArea[#, 60]& ,
         TagBoxNote->"60"],
        StyleBox["60", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[60, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 36}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567463`, 307.8888408304498}, {
           48.05280957899067, 81.93330436462277}}],
         StatusArea[#, 36]& ,
         TagBoxNote->"36"],
        StyleBox["36", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[36, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 54}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304498, 325.88192041522484`}, {
           31.487562186174614`, 81.93330436462277}}],
         StatusArea[#, 54]& ,
         TagBoxNote->"54"],
        StyleBox["54", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[54, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 121}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{325.13192041522484`, 
           343.875}, {-30.17196977597402, 81.93330436462277}}],
         StatusArea[#, 121]& ,
         TagBoxNote->"121"],
        StyleBox["121", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[121, {}], "Tooltip"]& ]}, {}, {}}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.72, 0.}, {0.74, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{91.22188581314867, 109.96496539792383`}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.78, 0.}, {0.8, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{145.20112456747404`, 163.9442041522492}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702413`, 199.9303633217993}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 7}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217993, 217.92344290657434`}, {
           74.74126371186097, 81.93330436462277}}],
         StatusArea[#, 7]& ,
         TagBoxNote->"7"],
        StyleBox["7", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[7, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 4}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{217.17344290657434`, 235.9165224913495}, {
           77.50213827733032, 81.93330436462277}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913495, 253.90960207612454`}, {
           76.5818467555072, 81.93330436462277}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 21}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612454`, 271.9026816608997}, {
           61.85718240633737, 81.93330436462277}}],
         StatusArea[#, 21]& ,
         TagBoxNote->"21"],
        StyleBox["21", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[21, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 34}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{271.1526816608997, 289.89576124567463`}, {
           49.893392622636895`, 81.93330436462277}}],
         StatusArea[#, 34]& ,
         TagBoxNote->"34"],
        StyleBox["34", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[34, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 95}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567463`, 
           307.8888408304498}, {-6.244390208573066, 81.93330436462277}}],
         StatusArea[#, 95]& ,
         TagBoxNote->"95"],
        StyleBox["95", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[95, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 136}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304498, 
           325.88192041522484`}, {-43.97634260332073, 81.93330436462277}}],
         StatusArea[#, 136]& ,
         TagBoxNote->"136"],
        StyleBox["136", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[136, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 199}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{325.13192041522484`, 
           343.875}, {-101.95470847817693`, 81.93330436462277}}],
         StatusArea[#, 199]& ,
         TagBoxNote->"199"],
        StyleBox["199", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[199, {}], 
        "Tooltip"]& ]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.6532, 0.},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0.66, 1.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.720735757713593*^9, 3.720735799599197*^9}, {
   3.720735837597724*^9, 3.720735853103498*^9}, {3.720736067256172*^9, 
   3.720736093905614*^9}, 3.72073622843174*^9, 3.7207363795881233`*^9, 
   3.720736462690895*^9, 3.720739525333766*^9, 3.720764352514447*^9, 
   3.720764405474141*^9},
 CellLabel->"Out[4]=",
 CellID->422491300,ExpressionUUID->"300eb266-3d77-42b1-9b2a-d2251bc1928b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"f5db9e31-3b9c-49c7-b11c-dc0560c06443"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "a3ead3ac-4a03-4af5-b699-7a5e98274c84"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"fb2d644e-d972-4d9d-9776-48f563c5ee28"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cd2c289b-5497-48b3-ae65-88fd80837032"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1850734305,ExpressionUUID->"17dcd412-bd49-49ca-b177-9f93b0c3ae07"],

Cell["Create a 1D mesh:", "ExampleText",
 CellChangeTimes->{{3.720767083229394*^9, 3.720767093641762*^9}},
 CellID->1365170760,ExpressionUUID->"cf0c3316-cbc0-435b-bf38-43bc23738232"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"coords", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"RandomReal", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{"m1D", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{
    RowBox[{"\"\<Coordinates\>\"", "\[Rule]", "coords"}], ",", 
    RowBox[{"\"\<MeshElements\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"LineElement", "[", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"Range", "[", "10", "]"}], ",", "2", ",", "1"}], "]"}], 
       "]"}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.72076701054388*^9, 3.7207670105444727`*^9}, {
  3.720767097110509*^9, 3.7207671092761793`*^9}},
 CellLabel->"In[11]:=",
 CellID->648017437,ExpressionUUID->"53eadd5b-1b0b-4c05-b4a7-82cc0a454ba5"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0.11989534786212608`", ",", "0.9860589984403736`"}], "}"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"LineElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "9", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720767109736187*^9},
 CellLabel->"Out[12]=",
 CellID->403284754,ExpressionUUID->"ad4f8cad-72a6-4eaf-b95d-765cb33e4197"]
}, Open  ]],

Cell["Smooth the 1D mesh:", "ExampleText",
 CellChangeTimes->{{3.720767118142624*^9, 3.720767123054522*^9}},
 CellID->1159046775,ExpressionUUID->"5af083ba-2138-43d5-bb03-9a456d28526a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "m1D", "]"}]}]], "Input",
 CellChangeTimes->{{3.72076701054388*^9, 3.7207670105444727`*^9}, {
  3.720767097110509*^9, 3.720767125407099*^9}},
 CellLabel->"In[13]:=",
 CellID->130926198,ExpressionUUID->"3debe769-49cf-4bba-8594-e82d323b1243"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0.11989534786212608`", ",", "0.9860589984403736`"}], "}"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"LineElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "9", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720767126625355*^9},
 CellLabel->"Out[13]=",
 CellID->1055868826,ExpressionUUID->"370a191b-986e-4cc7-b346-f4a239cc8b61"]
}, Open  ]],

Cell["Compare the distance between nodes in the two meshes:", "ExampleText",
 CellChangeTimes->{{3.720767139903729*^9, 3.720767159313367*^9}},
 CellID->1060524416,ExpressionUUID->"791d4eff-2a09-4cc1-903e-0b2cde9f984f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Subtract", "@@@", 
  RowBox[{"Partition", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"m1D", "[", "\"\<Coordinates\>\"", "]"}], "]"}], ",", "2", ",", 
    "1"}], "]"}]}], "\n", 
 RowBox[{"Subtract", "@@@", 
  RowBox[{"Partition", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"sm", "[", "\"\<Coordinates\>\"", "]"}], "]"}], ",", "2", ",", 
    "1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.72076701054388*^9, 3.7207670105444727`*^9}, {
  3.720767097110509*^9, 3.720767134184651*^9}},
 CellLabel->"In[14]:=",
 CellID->169797314,ExpressionUUID->"c5e44d0c-db3a-4d57-9631-ef38ad777779"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.09745244653356444`"}], ",", 
   RowBox[{"-", "0.005165439063190558`"}], ",", 
   RowBox[{"-", "0.04637308883506064`"}], ",", 
   RowBox[{"-", "0.028732655732830237`"}], ",", 
   RowBox[{"-", "0.07681425009413134`"}], ",", 
   RowBox[{"-", "0.10828808315217509`"}], ",", 
   RowBox[{"-", "0.2659111412349271`"}], ",", 
   RowBox[{"-", "0.10751156230007375`"}], ",", 
   RowBox[{"-", "0.12991498363229437`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7207671642667*^9},
 CellLabel->"Out[14]=",
 CellID->627898082,ExpressionUUID->"8e457eb0-65c4-4eea-9f42-10105f08d37a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.09624040561980529`"}], ",", 
   RowBox[{"-", "0.09624040561980529`"}], ",", 
   RowBox[{"-", "0.09624040561980529`"}], ",", 
   RowBox[{"-", "0.09624040561980529`"}], ",", 
   RowBox[{"-", "0.0962404056198054`"}], ",", 
   RowBox[{"-", "0.09624040561980529`"}], ",", 
   RowBox[{"-", "0.09624040561980518`"}], ",", 
   RowBox[{"-", "0.09624040561980518`"}], ",", 
   RowBox[{"-", "0.09624040561980529`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.720767164267668*^9},
 CellLabel->"Out[15]=",
 CellID->749989293,ExpressionUUID->"12e71247-7110-4f03-b7be-acbf52c262a8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cb893be4-94a0-4324-b720-2eab9a3be81f"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->389270466,ExpressionUUID->"4a0c7c63-61aa-4696-9ba0-e224342dccd7"],

Cell[TextData[{
 "Create a first order ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "ed359a96-9bfb-447b-84ea-8a6c47a769f6"],
 " from a ",
 Cell[BoxData[
  ButtonBox["Disk",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "ff805744-7db8-4e28-bad9-0493a365087a"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.7207682851842957`*^9, 
   3.7207682870178747`*^9}},
 CellID->305655251,ExpressionUUID->"5729bf01-749c-4fd3-8314-8d9f483367ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"om", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{
    RowBox[{"Disk", "[", "]"}], ",", 
    RowBox[{"\"\<MeshOrder\>\"", "\[Rule]", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7207595805879707`*^9, 3.720759587379307*^9}, {
  3.720768289210643*^9, 3.720768294711576*^9}},
 CellLabel->"In[44]:=",
 CellID->1098280400,ExpressionUUID->"6f4431d9-a966-4d60-ac75-545131ed1a51"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720759590147121*^9, 3.720763210008287*^9, 
  3.720764349498197*^9, 3.7207644041190042`*^9, 3.720768295204767*^9},
 CellLabel->"Out[44]=",
 CellID->222232631,ExpressionUUID->"4a6a5bd2-0fbc-47eb-94f4-30604e4717d1"]
}, Open  ]],

Cell[TextData[{
 "Smooth the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "c412478f-e8ea-4930-9fa1-c92e68521685"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}},
 CellID->1190324450,ExpressionUUID->"96f41083-eac3-4543-b8f5-783d6b9105db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]], "Input",
 CellChangeTimes->{{3.720763283935849*^9, 3.7207632974677143`*^9}, {
  3.720768319824685*^9, 3.7207683374914*^9}},
 CellLabel->"In[49]:=",
 CellID->1260428355,ExpressionUUID->"4fae25aa-f61c-4e00-b5e0-3f154f60db39"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{
  3.720763299788437*^9, 3.7207643509559593`*^9, 3.720764404195158*^9, 
   3.7207682978996973`*^9, {3.720768332481698*^9, 3.7207683379363937`*^9}},
 CellLabel->"Out[49]=",
 CellID->1532885174,ExpressionUUID->"10ed1cb4-5754-488d-afd6-41db14f018a1"]
}, Open  ]],

Cell[TextData[{
 "Compare the ",
 Cell[BoxData[
  ButtonBox["MinMax",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "dce324fd-eb10-4caa-bae5-4e9c256c01db"],
 " ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "541bdc59-1f9e-4d37-aae9-e2f6540fc717"],
 " quality:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.7207633889430437`*^9, 3.720763415274724*^9}, {3.7207635898064947`*^9, 
  3.7207635948093576`*^9}},
 CellID->299507250,ExpressionUUID->"de329b76-0b75-4e7a-b036-6be76b4f075b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MinMax", "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", "\"\<Quality\>\"", "]"}], ",", 
    RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.720735858798676*^9, 3.720735865430522*^9}, {
  3.720736166066512*^9, 3.720736181192617*^9}},
 CellLabel->"In[50]:=",
 CellID->330321480,ExpressionUUID->"99818f20-c953-4c1f-8606-901dd57403c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.6782628563139602`", ",", "0.9996595293944366`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7170224011761087`", ",", "0.999989392588668`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.720735861638383*^9, 3.720735912049149*^9}, {
   3.720736052897851*^9, 3.720736091699843*^9}, {3.720736154614932*^9, 
   3.720736181595976*^9}, 3.7207363782052097`*^9, 3.720736459386343*^9, 
   3.720739522610917*^9, 3.7207662137659893`*^9, {3.7207683130356197`*^9, 
   3.720768338968099*^9}},
 CellLabel->"Out[50]=",
 CellID->1850735053,ExpressionUUID->"723a38a0-f4e3-4129-8aa5-4940ef15bb68"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "77e0d2e2-b5b0-402e-ae85-3845353ba05c"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1460308640,ExpressionUUID->"7bcea0eb-6f6f-4d98-a7a6-09e237faba64"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "cb2a3218-d0b4-403d-a0e5-a4dc6021276d"],
 " with a region hole:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720763829309903*^9, 
   3.7207638316292133`*^9}, {3.720767179438414*^9, 3.7207671802949123`*^9}},
 CellID->479509400,ExpressionUUID->"c8f27bda-e6bc-498b-90e7-b85a68310218"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"om", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{"y", "^", "2"}]}], "\[GreaterEqual]", 
      RowBox[{"1", "/", "2"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.720736233640098*^9, 3.7207362747090607`*^9}, 
   3.720764413553823*^9},
 CellLabel->"In[16]:=",
 CellID->6702970,ExpressionUUID->"22a518f4-e179-40fb-8623-ea2ef69480f1"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "366", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{
  3.7207644139640703`*^9, 3.720764488961275*^9, {3.7207645317248898`*^9, 
   3.72076454584689*^9}, 3.720766192129031*^9, 3.720767182039381*^9},
 CellLabel->"Out[16]=",
 CellID->1838014330,ExpressionUUID->"f8244669-86f5-45f9-9299-9ff56457106d"]
}, Open  ]],

Cell[TextData[{
 "Smooth the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "e7790c58-1a96-4ae6-8261-d918189c7d3a"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}},
 CellID->601223756,ExpressionUUID->"4780791e-0729-4589-a92b-1a0322cbb405"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]], "Input",
 CellChangeTimes->{{3.720736288309938*^9, 3.720736297460655*^9}},
 CellLabel->"In[17]:=",
 CellID->1975110569,ExpressionUUID->"f6c1f9c2-bfdf-4304-aa39-f73a62d5731d"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "366", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.7207362980295067`*^9, 3.720736382731873*^9, 
  3.720736476192094*^9, 3.720739536196953*^9, 3.720764358037834*^9, 
  3.7207644083118668`*^9, 3.72076619353082*^9, 3.72076718456919*^9},
 CellLabel->"Out[17]=",
 CellID->1312080660,ExpressionUUID->"c84e22d3-755e-4861-a10c-88b137c9d947"]
}, Open  ]],

Cell["Visually inspect the mesh smoothness:", "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.720763715750421*^9, 3.72076372865266*^9}},
 CellID->363733930,ExpressionUUID->"26c24123-d8ea-4ad5-ab53-a279a35ed4f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", "\"\<Wireframe\>\"", "]"}], ",", 
    RowBox[{"sm", "[", "\"\<Wireframe\>\"", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735682223361*^9, 3.720735718218481*^9}, {
  3.7207637314212017`*^9, 3.72076375122292*^9}},
 CellLabel->"In[18]:=",
 CellID->779405875,ExpressionUUID->"56d8ae58-82ac-4384-9d10-e5e761fbb8a9"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJzdeolfjdv3fzdD5rmoFKkMXWMyRFokmemSJF0yXDLPSSRjKBIZo5CZ0EAZ
0lIpIlGaJ6czn9Mp4Yrrol/stZ/Py7mv3z/wfV7n9Xpeez97r+e91157rfda
zzGbv2raX7o6OjojG+jo/LifG+6/KOKsHN5dfT/qVs7FRNeEbV4XJ8vhuUPc
aY89SZB74ttbo5kyiMmp81raMQt2KwY1TX4sgdrlRWcSG+bDkNLQ5ZHnKyBz
xFnLyW6lkH/OXceoZTnoplWbGVeK4Ni9b/ZzWxWCk5FpzgorCVzzcHb6NyQb
zPVMZy8rlkL1u5mBj6vSwH7EsYQmf8sgVVnWYtOoOEio9L74yF8ODw+sW9Ox
TZQdx/mU4UKOk3Ahx/mR4UKOM5XhwsGEs+7xT1xYTjgdGS48SzjNGC68TTjt
GC5s+J7hJFz4gXASLjw81PcVdo+xI1yYRjgJF94inHsZLiT9oS3DhemEk3Ah
x0m4kOMkXMhx1jD9IceZwXAhx3nk2jDlujG3EznOFNpXjvMG7SvHqbOC7WsA
4XxF+zqIcDamfc0inBNoX/cTzp60r8cI50ja13TCyff1DOEcqfPjqvnPPfHB
j6tSaPts/HEphPbAn5dEaJeX/byEtuuMH1ee0D5x8seVIbTbtP1xxWi3QWu8
0HZh8oR2KXuf0LZheIQ24RXatB6hTXfQugv9WusHrfWD1vpBa/2gtX7QWj9o
rR+01g9a6wet9YPW+kFr/aC1ftBav3b//9l9/r++j/+8CBt/Q3YJD0XCkR25
ajxFd7usn/0QyNqQTuOq2B1oPJxOvi0ZVZmMV3NsnQtGqDCK7rdZP5xnbVhN
445S/xXq33qjmcESpQrnyp/4lc0uwOcuA1uMGCjD07t6XbnfR4pbzn8osrpY
jO6JUn/PCBWO9XGq6ThbgZINDpLkHRVwo7JX31N/itDDekRd/FQlzPha8Jdf
/HPcGePQ7co1NUxjbaA2xrLxMJONx6lMHhQweVhGcidQP5fjSnLc6T3RJMe2
BDoMn/cKDwc/ejMnVIk176N6Zz5PRvHAeeXf5BoMoX57Ng4qqL/lh5/j4BB7
DgYk5w17DgqSY0PzQmncO9bP5cC8lQse73wvR7M/Vy/dF52LkhXj1l//osLo
/tmWJ+ueYdKfq5tl+ckxf5i+Rb/wcqw5Wt355GExJq+frPa/UYGLY+w6v99c
gO73StJdjsix7doPo3O2SLFrytcAv7vlMHxP3Nxvl0vxj0y8XzxOBj7TwhxK
G+VDSoY8QX+FEh3Zc5jMnmMnNh+as/loQHLaU38ymwfrSY4zyQWSo3x4eZdD
8Ssc0tNg9o6DGgyKulBcOEGBx961/SvdthBsqb+OjYNj7DlsZ89xEHsOUpIT
RPMO0DgFzSP5MPfogM0300W4d8kcSU9rOVZn3bcPnibGIwcCd+uOlMCQPYX9
/5DnYfMJJzcaTlBC7gHjrMb9JDBn1du8DkOkeJjGvWfzIOzneVXh/+cOWvf/
9OvQtW9D0cthV6pQtC7g3WJVIoSsCE+btkODAzIO7pszLAaUL3uoat1VeIDG
8XlPD+84VLVcg9NWFX/3vPgQawzlOaUzVPh0d5ChYnAMBrDxwntILqjoPSQX
htF7tPCAhI3DgzRvMBuHCpr3qVFgwhrbKlpXEcZ2NojX76HBn26tbQX65o7v
PDlUgzHPapq6bM8R+ifvjgmd2FYjzMv9MCKuzqIKi7du3tmwupKPAz5+s1vR
0jXLNNTOxselAXvu7qoCRV3d7yKzIvzs8Tk+dJCG/Gk2pLLneKPhoUdjPhRC
m2dBxafGC7hgE5OH5ex9wnv48xLqJzmCXJIDt0iu7y+4KsAvp0f9r0qwgxVZ
8uVZ9eef33k/3Fn4yXBFFX6fkfim6UoZzpbPbaBnocHm8Z71v0rs2GdawYPN
MmE8yQUtecDlcHvyarV1YJi5Bg2u9D8RsEIGF+3na9avl3G5gt1xnFwOl0vy
BHsleUDy8BKTBxwnx8XlaskT+rlcjovL5bgIJ+yJ98zrM1GENQHndG/2UuE0
nXuu3nZSVLUb7/99rBK/7HLwulC/jyxOFkFJgmnOvEUqbGfTZWT30DKorLP5
NHNKCTrH3cXMjSpw3LjjhuXKEvhzs0uyzmkVfmXzgdudks2HbwN/zhfk0nug
EckV0TgPJgfsSe6axo9aP3yvwG2m/Wqerqn3J80MVmxPUOLCnrY12+PFqHvc
90pSgQxfSMwiDh2UQ/+bgT6bu8oh60twTytbBWZRfwM2DkwWb01y6auCpbfP
Htm6RY4mEfMfN7OSQ8Ts+fp97KVo7Nay7q65BI7qDn6aPlCBRycUf9uRJ4aV
owIXfjBUo8e2pql9ElToEHs2xK+gDLuZdVKat1VhiVg/6/5SOcwIz5rczUmG
+4/clGw/L4G3LQefuYpiHHp8dKB4mhxKaZw5mwdBNM6dzYNBNO4dmyfwCsH+
o5bfuTuoGrr9vMRCu+7n9QZMfxKmKoHfdRjzR/1Pg96L1w1evK76P/cWZGfc
Hjc469X/qrChzcgGNiMr/3N3mh3daHZ0FbQq0Qyo3SCHrapQe1VoNezb++NS
guPPSwNdNd8c9PYoeBvdJBvuXgtU8Pk4Lmfh5ZOb5Ejzkebj9Ws/LjWK3GP/
3R9fLbw3P9nS+u9eVdjz+jDjkXlSjNzikqw7WI21k3p91quUo4PrmhaZNUrM
/HQtMXunAr/glimvytXoapP64HKYApVis+T9uhXY8m2i3M9Iiftr3d1dh5Xj
xbTWJ2YOUWHKI0ePrtkibFc9dd/lXaW4pq1Jnv2CevtY/LtytGE5vjt8LsZR
qcC1Vp02B7cpwuJhnufdDZXo7GR/4lj1a6w1n/K6KFSBtcbj+hj/8wqLJ6wy
kcXLsdUepxjvgFy0F31t45kgQ5/Ng+64uNzHAWH9326t17+jk7kkNjZNaDM/
mCzsX9jO/u4vLeRoZ+4ztUt5Nno0MLeWXFFg9HavJ9uDMrFb9YzTx72VmOgb
9d2qUzYOrVItmVvvZ7pbp2V7t8zH+7OeLaoKqcSvGB30wLcQv460MiwZUYl7
3UpTT1TnotEG48E3LiRg+H27972bqtGpuH+TPSXJ6LRz8vGl7Spx5aX2/kN2
J+CwZc62j8rq/ZHaIvjS+Gr0O/4wv+uUl3huoNzVZJsGAxZdHh+lzsAL45Of
eg+uxrNeO1tYDn6MNS2HrPCu5zWPzDqvH9g4H6MP9BoT+E6FHuDWJG9FDvas
bbN060YZ6GKD2/vDM7GU6Q3ySY/Kv64/jxutgH9eL5tl4vYck57MzW7uX0nx
9xw6lR+O66evxiu+n3NGtdmDHfa3iJ1jryG+fQz+vpa5KHK2DFvILBqdd8/D
O537XMk+K8Xgxe9ejTyZgxdC9023ay9Fx6Nua3tV5ILXgnmu54fJ8FSeXk47
i0LIn1VhFNlOjpY9YvI8ZbnQwTb5sYmxuH6eid+loje4+sOBVqGZIhR1Ng2Y
PKkCOzxO1ylYIEJx1O8bXQa+waCIdNv5XYqxo9shw+h5lZh8vWvrats8bNzK
Sm9UsQZjoyffisc8HLfWb8U7AyEuC/vP2III5SmFGRebVCOde6G96L7Gdem3
XEjf99uF7SvV4Cm/krhtci6EhFuXGb9VwOG0GXW3VIXw+MS6c/bPVNDq3wOS
bMty+NKhafOwd3J4evjENG95MQyOneca7qaEV7P0as02lYBz60kH8yQyuB24
/o/Wl1+gR4egPsljq9FzyPewno8ysMXNB51HPtAQP4/BeBeTmafHVpH9nsOG
DzSLTXKr8Vf/lY3uTA5Ek1zeDt/3XfO842vcaxo0QtI2ARIj5hdcqFYTPzsH
dyO3lZ7YXkn8LQr2r3nwzEm/CuNNd3hLXmbg6m+X86LkaqzRu7rdqrsI9E9Y
VyR61vPiZZ7Tt60SQd+PnY0+Vsogfer1mKm3b6LF2JLTZteU2I3ZCRqumusX
cl+J+R3PiHzHnceamGcb/zoh/985JP/I/RX3U23kSxQ978rx63OHsaWXivB8
t9f7xprJUD79U8VH52L82nnH8LttpDglsdgiybcMs3vUzhqXJsaI7YknAsYU
aeuLeNA54G3OF3/NZ4XnqPUcdeLNl34PeoD95xZ+eV6uQKlN6005a8Sg8U7z
cgcROOZeDbX3lkCA+KqD5bZSeNfb8uxKRymMHz9ho9P0+ufsHAjnYteg8Bs9
0wrwpWrLpHlvpGhC+/F49+vLz77V+9ndZqFlogQ4Mzq355RcBc5cECvyP38T
Tswaejo/SI7psxoP2alJxfd6ygY1JxQ4IJedYwU716hnZ9S41DUDI/p/63hK
qcR+a6ONyl+UonxUkvvEm1J80jpXz3+tHNbroeGLttVQ2FXWKWSnAnLnrdF3
f6oR4g7FC9hl2qHpq3MIz6LvmW8dK4cU9n74wN4PtXd+6gdIP0J9ISRx43nL
UxqqT5Sg1ZeIIv/D3B9nC3E4jtkt0HmACGa3Qtv6Z73gNUSuTB3tkVJN9ZIX
QltLHvYnv3+UxQXg7WksLgjjKC5AY9p3bgcJdO5Y/hsDLelcBrBzCtyPezK/
DmvpnBSxcwMXyO+PZnEA7MnPn2Z+Hx46mNnkWFTjfaYXUP/2ZkOusQbLqE5y
Ax+O0v1UhZx/9KJz1db55zkDUzpXc8gf83P1nZ0z7fVo+T0dnYHML2Eu+aml
Ef1NGhSqMW9RqWbusRJIYX4Nj5Ofs2p4s/+RZlWUr91AD1cb678q1Hjgi3UL
i5UJGMXsGnqTna9m/h4CmL/HN8zfQwvm7/n+wCqK27w9kuL2r+cyWfATvJ/7
CS2eJLQ5DyOexu2Y+xfgvId4EBxj+wXi9Sxuj2L7C70pbtuw/QM3itvkr4H8
NRDfAGEdpG/ijaDFD4U8hXgicD5GPBG0+CFs+tWOuV7+U9flfJbbD+ezwygO
X6J9CqE4vJT2yYjicCHtkzX5ub7M70EzWqcbxamQzHWZSeGvcOHsZeGrD9Xz
BP02meejKtDibd6i3LcSnCKfs3n4izfoePySbmSwBK3SmzQ/+1qCohHf5q9c
UAIHm3ToecNIjO5jHu48blkCe43fxdbGibEu5nrq8/nlMIXFSSyhuPmE+R2M
Jj/0N/m9UvJD3RjfwZGM70Ah8cR/GN8BOfnFkcxPQoyD+N0TUTY++VaV6emr
gnFDo6wbbMrB1WueDwx7JYedimWKD/JM7G3ZdV+FjhJ66Tu1bKISo83fU3YP
LlTB3K3hXVwTRLh8TPNBR/5UQ8nle99THCQ4Ws/kQXt5JXC/24n5YeB6imB6
g9oMl+jciAp0eFuSMta8ArZ1nTkqerEEp23cdaHrlAqomnyksZ9chrLuOUPW
paTj6cMLV/a0UGLTJfr3z5ul4WmKcy9Z3INOvul1Hq5FWFn0peJFgBT8WRxC
HpcsMv/uGrP5NXq1D6nzUqhhy969ET6GeVh+Grp0L9PAwdHLb3baVYA7Xo87
ng9qiNg9IsR4oBLDQqqdA74Wo4JwEC4ozepUrO+Xhstvz0vrvkVJ9dsCwb/z
PJXb5a/2mS3w3YZtzt9yqXyNaUv6ZnTXe4xNErLm9xpVDcwNvkDy7/X2t7bl
solP0cry8KXdDaqonnMOib/A971NQ7uY7kG7e3FJiR3VwOq/x6Al463A+d5W
yusatm3b47fIMrxfrAzZ4awBcXV1wzf+JZjYd0tJhlE1GHxxUwZ8zMOnJxaP
XKEnB1s9p3E9xhZh36Dehr4Z9fzuWuzpEf8qMIH48nmvOJPk7Po8bGGXErM3
Ccjj9J8sbgvnkuuBn8stDI/g53mb4rIQpykuI4/T3J/xON2G4sxp8mOjKS45
kh9bTnHHlvzYMMoLLOnccB76nOLwY7YfQPuBTZj+gfSPOvqM5zZkvBeBeC6y
eIIzieems/OLEmY/gl0XM/sBsh/cxs4b0HkT8la+zgfyk9cfrZXjyg+3tjdo
Vy3koy8mz/cLqdeLy60G5SdjymGa//fScZlydKwLC2jbvBTyzJslrVirQJce
lQ1vdiiH4vxxopKPSq3vNNmcZ+A14h1pjPfjMsoDghnvx6WUBxy+fvS3Q1sK
QDXeNsNtthofx+Rd9Q56DQ6v47soPquxvFm21++6ebB0etMBVgoNdibeXMl4
NNoQb17JeDR2Y+cX1Oz8YiDxyFHs/OIFdt4hk3iuS9tX8aOjNcJ3KrsGaSV3
T1cLPOtkq+Ylge2rhTzHuWeq74GabIh82KGqPEiFCpMDD57uzYGJA95P7ySW
Y+Ib2zWTGuXDBbdgz8pOcjzI8jiIpbyOfa95LZxHfo614w8/9xwP9wtHmb+H
cczf40Hm70HD/D0OYPEBMll8wAZavF2rLbyX85kVvRp9btNSDN08W1W+qver
tf56+zR5ErBWxmdezagQcGvxSOA88le+kQ2Dg1zcD6XI4b7XtC0bRWI0avL7
rpXTZTBtzmrNoBcVGMjiEBIfFuqYvO7D47ZW3UeI622ZPWAt5VW1LG9EQ8oj
ezP7QF/Ks7T0jWcor+N2y/HzOhXnGVp1KoGHcF7PeRTxIQGfZlJyrvlnJeQu
XfnM8JIMdjy07jBsjRx8pxWa354ohbPdcyZkFilhYvfMMa2NpNBk4nTbz8Vy
KNZ0z9bU27GG4lBnsmuyK0ggO/s1f63AW4yvCH6at3le7o6Gn6x35qH3xZxb
bzqpcC3jq5DJ+CpmUB4ezPiq4Bd5Xsn3h+uP80D+vCvj17CD8tg+lMc8YnkN
z1vhAuWxBox/QymLM5hJedEEsgvKy+AU5WlhjA9A1nCWl9E5BH4uzZ9IXaI7
amB462+pUzVZ3I9ACvmVWJaP0Pe2GLQn3vCF8Qhox+ojoGT1EXhLvKeE6j7L
WX4CpymvT2L5B3B/UcXyDyFvozoBHKa6QQLF2WGUpwaxOgF9j4mC4Mhwu6CG
Kiha2Oqzzv1CyGd+F+zJD/O8kuKXYH/cz/M8lOIdfmd64jwKgok3/cV4FMRS
nkX1CVhA/X7ESx9c+ZK0I1kE+eEzn35CKc7J3xB97IYInl0cdW52lRh/Jx7I
62D32b4D1S8Eu+R2yu2Q8weq0wp1W6rLIq/T8vh+k+xYK/4LdWX+vJZ4byD5
xXziyb3JL04jnnyI/KiS1R1QRnUIJ1ZnwPdUd2hKeSHVX+AZ5YXcjtn32Ri4
Q3ZVsOlW6MC9UjRo2jup+VYROhb9EbS7UIYN2xqZ9EqqwDkfQzpUiiV4c8vw
8eH1+tvP7AIfkJ2w721RSPUj0N8Qm/rxqxjbfUpNe9dPJuS1lOcCz3spDwZ3
HhcoL8iiPHQFnfMpxIt3MJ78nzp4a6qb8zq4FeUBFlQHpboK9CP7pboK6Aaw
OgvxNVhCdRbOc4n3cp4C5cRbeF6wi3jLBBZHQU5xlfPYdOJRnLcSj4VqOqet
qK4pP3fK4NqjCvAOuydJSlZg+YF1BSUPRLBG4ZvsbC/HEsZbYCrxmBmM54Az
8R5b4r0e+37yYGhCvDed/JOS8RSBtxAvARHxFJ4n8zjB/SM/pzx+8TiRRXnH
WeIlSykP8mR5EThQHkR5EVhT3mTF8igQUR2X+y2et/P38nPC/bYt+UXyk0Je
zcdpxTfgdeg4xl94HBPimg+LY8jj2gQWxzCS4loLre+OWnn5f+7l5PdCmB/E
coqDFBfxNuE4QLyqJ+Uv3C7rWL0PI8guF1DewO3yCNWdJzH+iTks3wHKd/Af
2mfKd5DXrd0Yf8U9WQcTzd6q0XrpvKKXX9+gVer4h1N9KrHa0uRo0N0STFfu
6ZG7T1TPY7dHlr+QwQRmV+hKdpb19daiyOAKfLbw0eNJfyigW7yjk1umBNsc
Om2TskYCcXoV43wrpJjle2y6yL8C7Nh+oQXFtUOpjY+4hBXize9XjD+IlBA6
ev11q39L8BXYPZzuqYDXNzboTfhQAX9nxiyOdajEUrIbsiOMcDT9+K+FFBI3
f0xweajGz/qQsTdKCltlVz6eHSbFFML9lK0DnhLOVww3tCKc3RlueE444xlu
OPF4474IZ6mQX+yNW+RzACSYe2fvxKtGGrSfE3Lg3lUVZl58tCClVobRTZbZ
d5mhxLXmNqstj0hxi+fwROMWaky6liYxNZQK+dvFqhiZh7MUzqVvmf2yiQaP
lJ7NnQgS6B1msbkmWIa97ZSP9hnKoJ3H+HFr1tfnKRLjwd395GA394PR+d8V
eHu42M1UTwbn2Xyg+UK8vMDk4/wt1sPrfKVgGrE/PfiqErs3yBxuFCmF2K3z
fXwGK9Ate9338K9i0O3maVB2SSng4nI4rkh6D8fVl+GEGYSrPcMJHJc9wwk+
KRO3232LF/JFrfoUbqiZOiO/VwrEj7yz+6WuGs1OTb51Qj8NAlvXrPM7Vil8
3xrw6KOe7ewErfwsGdWjj5s7XlHhs00TZwW8SEbXbbIdmQMrsbfNmRwL1f/q
BlsIh1b9kL8XfAkHvRcsCYcvmyfI0fpeCD5sHt4hOeZsHu4jOVr1NyH/4ryh
r9n4cV+dKnFXzPIpITqvhO+1ltEOuzfOlGr9z1CGVQaBy5+/VKHzJJs9N04W
45i97g6p4WV40Wz0KL2F9XYoGbquy00Rmgb0er4lXI0vxc22XlpQjrldnzfN
L1BjbBNZXOolMRpP8mt6sbcaeb3Zm+VjWv9LLILbk/ppTAYrcW7vKLekWglk
BTbrEu4sx6G7fSRmoWLguLg+NHeftc6dLhX4T+Syx72eNCzH/Pe+b5IlSoi4
du1R2PACoZ6iVQ+Cxoeutxhxtxzljcbrn3mnBp0+HwInWxTAONmYqhf1ODku
jtNxzZCXh7xKhOdeobPexQWWgeOh2MgAdw3XmzC+iuET+MB8ikteLE5h3KQc
hfnTcqhUGRjca1Ap8GGer/4af4owftX8mfGOSuh69N3ws3USDN+xOrlflAIa
7v0tb8afMkGvnM9o4QcP0ms80zPYkF5zmJ75ukCX9MDncTn8uRPpYQxbN3A9
8PFcD3xfaJ/4OiGa1q1VH8eff4fxUwv/J+B65PmkVv0dtexBeL68h//TWTsr
cXlJC4Oc0eL6ePtxZP5dJTZ+FeXye7oSW3pIHWMaKXHOkgciWWoldjgzYP0i
J4n2/ykEPk24tP9/oVVv+F9ex9fPcfDnbqPFbWehCr8G3xth4SOBkH9FtsEX
VOib2stXNb4CfssNkp8sVwv1tSmdmplF3a33v0llp452UGrzI+T8k+tNi49o
2c//vltwvRE+4bkHwwe1DB8eY/hgPcOHhE/In2Tm7fY1K1OAzYQOFfOWKHGZ
t7e1z7P6dRd+MqyZpNLO/zlOgTdr1QtAS4+gdZ6E5xz3F9LjLMK9kfR4mHBz
PXLcXI+kV/hgOb5n9V4R2n2uW1t5Q4GFEz56Hd4uxqFJ02Paj1BgsJV3TFFC
fVyfeC+0dJgcI2780/LbYTkG/9E7M3mqDOfvtIs72bGeV3VKTJB4KDDMNWpe
6HINZrL/AYC78QurgdfUaHS964ALxW9A5R/WtvPQYrTY6zY8Ol8Nnx82TbjT
vxjiu9VMznqvxhNsPiD9j2ABmw9t2Hx8RHL5uA4kdw6NIzlQS3JLb12wm/tR
jttcB0wyXSvBV+2PHZq4So33O1/cliGpz6fKCh/NmaHCYUkFA610lRA5Y0et
TFeKYv1/Blv/KwUPnRa9Py1QgW4Pk44tmivxUuAuY6/LCjhdcHxObj2f1DWd
bp58WQoGg8C/y10Zfl57RD63lwS+3G33csUdGQ4nufQeEJHcS+w9kDLsu8+n
K/U8+6bXMd2PMux+ydt0tKUcBl//HHH9gQwtjHUNDp6sAPE9yYA8GxWmdXze
cm6YGn3GmMd11chg5crP1cb7xLionWLP2gwpbKL+dDYOFlL/WjYO/h9mHo3/

        "], PolygonBox[CompressedData["
1:eJwBWwSk+yFib1JiAgAAAG4BAAADAAAAREW6KUm8mru8zkbKu78rSb28vtCa
24PjhZVvhXkcT3pOgReCrKptZWl6L6yibYGCJyZ9oaNmF4EYEhGPGYQab66O
S0yt13+Ti9iTjk56nnpPPj+Sn6CeemmOdtiLHmUfuysqGIGDgxkYXadeUJ5P
aWUemQWNHBuFH6AgaR15lYUbY83MCglsrq1MYF+UUrNRMXwyfDGhkHxqZmp8
NNGvFGYVMKExj9LRo6GiJiWRQH4/WFfAwTfCZ2t+gJRfODfBm8DBXoBfNTSv
CAeTFGpmfpI/aXmOhJUahhEQho8RFBNqExJ7cpcNxHGwanuQEJaGghcWDw6H
l7GygW2DDQxyTa5MrC8uqFyxp6loWrCyhw6XFaMWU1S1ahN7NsPCaGyAHRx5
fJAyn1GzitaRISBzvUq+dInUMzKQ0XuPtIizddaKIokjq6otc4ghiCIhW7Fc
Li2qJSSKkSWKQaRAJJiKQ7hC4HWKHh1pnMXGcNKGTU6OOTrGxjrHzt7pjI0E
PD22b4551tWRxVVWa2coAShnKCdrJ31rjHe4fkCkmQYFk38IfmuSPdW2paak
jNmNyMc7htKPbH+Ua32SI4mYf2wJbGgKWlmwxFjAt2JhBosHlg+HB4uTCmgL
p4BehINuqKmnlYRubJSA17dhGxqV15PYg4QZiwaZxclVCQh/AaYCAwJ3d4wD
pUK4JCOYiXThjdl4pmekuYy4y2TMBI0FeLrOlhAPR8pGiHOzSGTLDg2XxNzm
ncrLiNSJj3sSiIkiBAOMC6kMeYVvkX0moGWe1X2Rq+Oq5odxhpbll3Kxh5fT
4rXJmOCK6Y14i5novkutv9rbwzWv5dzkPLbI4t3hzWK36N7nn55Qep5lUZ9Q
cyCgZaAfc6CfoqEwfKFmL6IwghajZqMVgqOipaRBfqRnQqVBdwKmZ6YBd6al
qKddgKdoXKhdcgypaKkLcqmoLSyrrG2CK78sbeODrIKiLqqsb8+tvq3Qjq5N
ra5vM9E05HDlWVjEcYfTsVuyqLFyWrJb07Bxs1K0n7NzUlO0tFO1VFXJtXTU
PtU933XgYNdh53bouEO5pbh3Q0S5uUS6RUbOunjZvLsqv7uaKbwqSUq9Sku+
mry9z9Ctmr2+2r+av6sswcBXxMCbOMFXNzbCNjXDm8HCcMOvm8LDxJvcxLBZ
xsVWycWcOcZWOjvHOzzInMbHdci2nMfIyZzdybVUy8pHzsqdSMtHZGPMY2LN
ncvMds23nczNzp3ezrpFb5XPz5XQlW7Q0G7aM5DR0ZB7cK/S0dKvl7LTsNOy
iLTUtdS0PpLV1ZJ9dbbW1da2YJTX15R/drfY19i3jLnZutm50Nqa29pug9tu
v9ur3Jvk3OXm3Zzf4d2Y3p3n3ujpnMjfdd/ImN3g3+DdieGYdLXi3eLJdOLh
quNt2+Orm8PkcOTDhuVw5uWWh+aWxOZxnc3ndufNi+h26eiZjemZzul4cwdE
LA==
         "]]]}], {192., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], 
    InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJzdevc/1e//vwYaioq2RCqipUTWI6VQKSWrYaRhJJWkEjJSESUZ2YTwIhll
e0QI2XuP4+xznKLS5vt8vR3et6/3f/B5/nJu1/Nc53reH+N6PO736zzFz9od
Pz+Th4dnzywenn8/Y5RdL0RGU2E4aUQ9rTG+wCD7rmW8DhU+7s0MP32/CJpD
/n5aaUiB9MZxS+tltXCPJj+3uHQQRi91RBXMbgWF7oBLsS8GoFo1er2OUTe0
xpzkWbmgF2aWccRXsfohKPevmunCdjiwck2j7aZBSD6te+D3kwZYx7/mlE0n
GTjDht6lQ2WgphqUPecrBd7TewRuqWdCNutG/DtXKhT62l9dJpSiMomzYgIX
TuLk4sJJnN8mcOEkzvcTuHAXF+d46X9wYS8Xp8YELozm4hSfwIVZXJwqE7hw
9sgETi4u/MLFycWFTxVv1+OGdBUuLizj4uTiwjQuzgcTuJDrP9w9gQvLuTi5
uHASJxcXTuLk4sJJnJ8n/IeTOCsncOEkzmfJSnT7/VkFkzhLuHGdxJnKjesk
Th7bibh6cXHWc+Mqz8XJx41rLRfnQW5cH3FxSnHjGsTFuYcb13Iuzsm4RnFx
7uH59/r8P58F+f9erKnxTcd/L9rUeMd/rsGpcW/Pf66psYH+v1fL1Djk+b9X
5dRYaNG/V/r0MUybPzU+MbHe1Lh74nlT450TeKbGXLxTY649U2PuJ0z7nLo/
zX6YZj9Msx+m2Q/T7Idp9sM0+2Ga/TDNfphmP0yzH6bZD9Psh2n2T7//fzbO
/9fjWJ3fHyxkkIgBTOtN224wMPmrztW8ewz8OrtkDkcuAT5raXR3eDFgVYFu
4uCnBAy0uWne9SUB1h41vl9O3I8j1xyc7V6KgjqLa+fMZKBEeLltjhIDRyIG
dl/3fw8enOvyoMyAfyTUrqiEv8fhdXdiPKPeQ42zx5Y/Sgw4dGD2vcInDLy4
yzgusKIV3/rphMxnk1F2X9blb/cGUbaB3+nysk5Md7K//VKVgXd9xM/S6+n4
2+NLqXEGCWpzLbJHVQbQcYMWmJsyYPtr5t6lDyswyWosoXYNA0oN7H+dsa4A
xWDd4SPLGBi07CLrqWs/xOrGFOkS6+zQnhm6pJoO9M75mun3Sbgi3/6yI7Hu
17yq+8x6OphYjgfXE+scVnrYKfuwAo6du+12nnjOqgDx899VBkC2MvqGeUAD
+s/bpPS3nIa3yT+ej55EdHUw7hTxYuPxzM3bQ2/ScXXM0ItW4QYQrnmj8yyG
jeVpI+TUl4Vg6b39bdItOoz8fClSsqgBtco+RqyMZUNVOOX31dZCHFnmM0Rf
2gCFzC+HUm/Swc/sxUvJzkLQm+V950cMG76IiIrPfkNFwaz6874uzagsKLLu
9Sc6ejceehLY9hFD7KU8tn2noJnWat1ra3oww+xFlMRBEpb8iLwjBAN4nL/F
5YZ6Gz7OOXYheSYVA+9Lr9u3n4IymS36oSL9YFH/8MghkV78qbfrS6YsFeZc
+OjmdaQFapoia0bO09HEbs6q+Is9MLhUUNhmAxXrzA+K5p2mwJmc2pSMOf1o
Jsd76S2xjn3fYtn9+ylw/FbQPgsnOjx5di9Rxq0FXi6YFZhNrDtvu2XoYZFe
cK0cHdA2acD4JnOtqz9ZGFk3Khc+l4YjS/h0u/XbQd9kS94CPTZ2/ZWpeTxU
C+ti17T0LKBBJKvVgKLVjrnSJ8jP9djwdfyDdz6nFrO29s1zNWgH0S0uPLFz
aTAj9cb4mm+1oDnE37qFmKdW4rBec7AP7R16mRuEKRgZVeL9YjEJ4S2/6oI5
g3B1Q7a9lFsL/pNMKjUncAdG631Ye4QE+9dkLTR6NIjln3wNlhLzHj4/dyRu
MQmWWPFH9x1h4JqgUw2qGQzcGX2NE5/FQDNm86IWfQZ0Ni+uXHGXASxO3KCy
GQNzllp0dRP37+C4T0IWAyy3z3NIr7UHGb4d6bNT2dgcfKP1F/sdnJMNrbIL
Z6OTa/enH5vSYem7rUVWDgwcdpLrzHvDxu8hik3L7rjj95q/PKdestHVmfkr
lFaMxTs1+24S+/p42D9L1SsysL0xJPDhWza8Fv70Ibn1NmiRHOPOEPm26cni
2KX8xaCyV83juxMDmjNV1lpeTgfnOUJX5MpuY7FzpLwr8TvnixZrh/iK0ehr
zqWTxO/wQrp+vW06eq3NKxomfnfGaGb09ko2ptz0vyLY1YGva+4++vWcjY3e
coX9pH7kubl9s0YaG9MP5b0UjWzAmypv73gw+1FPPdjd4TcLBWJiFItedeDl
vyefmy0fQk+yo76oCht5TFcNNI/1g9B71zyKbz+eunBv/IgrGwpEVfqOsuux
K2H+z88ubBD6JpXFMejAliNS/ceesuHtDPn815310BYbE1R2jY3LfFd+uqDS
Aes5+86fusRGvzX10aof+kHPO43FHmWhds66N6GKbNiyfKEA9XM/yhuONP0k
nmuVGPVVTIUNCuubtUaI5wieuL3IgF0PbJPqdXrEc8Tt9hZ9NuiAjDKBxccI
XH98ritTffthhVuK7VzlIQz5/ex+1HUGXjX26tpBxNFm+9Mzx7PZGPb2Js3X
lIHGpLcbRa4MYbNcmBOngoIH/oiOqhHzKj2un2z6xcLoC1Lrqr0o6HdxfL2I
FQMdKtQVz64ZgjShoQYfwp9P034aKgSxQXLbaYqU8RCWkoRbLhB1Kv/EUv2Q
FWz8fdXY3NqfAgarH1YxpClYjs5jFkYsWD1jacfIWQa4VEY+cN09hMV7eV8u
j2dDbJdQ6cUINtbnLyyr1RqClZJbuqJNGJivYCVWNYsNJUlOy1tdKXj6TMHh
6zcpYHzsgeBnFgt91FaInidwRe5wO0/gBO9L9s27CVyap9xnP0pjQ8pB6zM2
BK74wROq0sZD4B6lX+VI4Pp+hlf3+Qo23Hyi7WlJ4Co/tXYvU5qoIzNVnNYS
8S7OVFP8kkDHijDmlv07yaimqm0SsZmO8xrF7m54ysK1mR9fPk5vh5yLfJTU
cToWa/O0U5/0AuefbXGNs3tQ6Ya09LpuBmguoWoo3+2GYDcT7e1PGUgr6V+t
FMACuQD5sBUJ7WglKbxvwWwGqPP6Jdy27cX7TWvkgjPaYUvb5pKtT1nwutFg
jrl/LyB4q2aM06EzVC1/PbHuDNMmq+bZPVAZYpc83kxDHYeTvC5lFLQ65Vr2
m0rHJX8HniXJk/CUnEFdoAcV/y50vTF0mwbC22KCyjdQYFVR61o3eRpuGWhT
/0Hcz7cdTA/yoEKlirvfEaCDNfXZdoyi4MCQoESXABX2RQh8c68fRPvmLOzs
GgDaDV1j0xU0vBAz32hzFgk09/Jt22rMwIZCVuw7fiZGbplVxxPVg4cLqhgq
bnRc+U9p5goSBWgRH1Z/LKdg4gf6N2dbMmwJ/3Q6QXcQ6wRSQ+ezqfDIIcJF
mpjH3y26Ss2NDlKZo7l+xDwLYYmL1eUU2LaIRV5CzFO0mSv9Uve/vOM/NGbR
ALB4buaVC3Dgu/C2KxGMAUjcvMf0yl4O+H0d0jJI7YM1/yFMQ1P8royx06/f
iI1zzsv5vXLi4InKxw19azg4J8DuvdIGDlaGdKZdqGHhp6T0GUmWDNQeT8vc
2MvGSF7zq0aDTDT4ZsmzaSMLKZXBHvJGLJTeLHXLcwMHTO+Gz3axoEKDh+eq
q9s4oHv3b0gPYc/bIvJ9RQ+i37r2mC38ToONi26whl+z8YpqGRzlp6Pt59OG
kjocbLsr1f7iNhVdQnJ1D5zgoIRi2PaIZ3T8+4im7XCUiealHxqL7nHwjk7w
T733THyQv9hgybwhlP8jPiCzmIKn6r8aK79gorCvg5J8JRWH9ppLbuZhYFKh
X9IDBRr29wj3qIuw8OKRIv+UhzRcrGJwpaa0HzfOzXBISqTj48htT9zdevBt
VVFwoj0DrYO8rr/b3I+5972+FG3rxN8V0f46dRT8FkZ7sDa2GwW8Zp9VOULD
xlcr/Exvt2Nn7LuoC8tpuC1aTXrH3BbM13HJbqRR0U9luVL21QbcVh8v77WJ
0MUVHwLJOc0o9Ml63SNHCs4xfMHDH5aD+9fVZVsf5OCodorbwpFSVOzI4Pkk
zeHy8eKp+D2XG+86sJGKvyXNd5HHG9Bms7tHXA0VOQI8Gb7Z1VjBc7eRFELD
dzzjT2REG7HhrqHE7mI2qv49rMHf1YK7dzz1X7ubhWIa/ceuCbcjegztOTWf
heKPD4ouWd6MH5qNZlkr5uHdQ9UdPkR+Jx+5katGL8FHdi76joVMjOgJuEib
9wbThJ4WnuMw8auhuNNtIl7nQkkZpidr8WXpzqMtYUS9rPXcGB9ZhUMa4i8r
9Tgo+5PantdYhqWZp4arO2h4uaaZ57t7C8pxOA8bbBg4V3fkyrLqRpQaFbJ2
caTATJyV9SiiGm9vvUrfHkIFuZtJhWduNKDJFzxRI0GDjts3tpRUfUTeNZZL
Eom4zqKdW9IbkIAKga8KjAm+6ydzmP+d2H38JCTcMriUhaSv5Gfn7QLgZNy5
OJ1rFLQrq3CQvNaCb1ZvTmyIJhN1f7h+z/NGjAt4qKeyhIwagUbXpAea4YpV
9oLTiygobKfba3yxHaLrworOUYi6vNzblre5GZJPlqGJBAmF1vrPGA/twwS7
T58aqvrRngcctxH8T7i0nKfNoh9JKTKOJ3b0YXqo/dqI/A70rSrukAxloWCx
SXduTCsmZYgVhUez8ayU/J9bhS24LS5kdpcfE7n7fCr+uK+WcaKtDxkS2TxO
+znYLDow5qpIQiXHsLMlRL7Q/iyLMDVpBlP+ISm5Dgacy5SzrSZwyjH1ltyh
0+Bj5rOXzZrtcFY75YYmUV9nnqx65ri6D0aL0n2LA2iwwAXONrG64OSbFHtN
OTq0rJ+5an15F4TPvZ55guCRto7Ft9UCa9BY9o3XfuJ5R79ur7UTqsCbWw3j
9pxmo7+zz7ttr1NxVO2V1HGCJ+36/nZgr0kkNnn6zP11hIP/f/1qwBxRZtiA
Igfcis+yL7hXY2Hr2cBQPg48GEv8Z61rI8rr+5Sk6udCk+rhxJqfTEw3U9q6
6MULkFoZuZ+1gIXvw0WeHTybDuUp+2XsCD73e+HJ8v1+VfjFjle/kqgbDc+N
V58u7Yc4kgldcYAOoQtWCVuGDECHjtSlTDUaZCsklB9IT0dxD4uiCjoNP15e
LMj/2A9b/1xZvngmHVuXRfXf1nqBn9OrHM+HUKfiEPof3cjAv/ntt+EyB4ub
zP8WnmRizpkti0RdqDgy4j9Ms2/Dfptjnzd4knGf8SqZ+NZ2bKWNGLENBnGE
frrn0eNubNg4aqxVRsJIt4IQr/0duP7nhl1/eWPxoJ/QujWGHBBTUDy9Lykc
HtfYa+4lxjzca9KPjxoO7DmYFANymsf7fxzn4LTvce24yvA6m0IsxWjP5Fwa
Htypv9fCigRGK0pqtRf3gx1jx3h53CD0Cd0ziVjZA8wY3eVMazJ4z2KY0hL7
gbsPpvZFDqfqTO9oG9qThgUOVZDxiNEr8ba9sXD2lWlW208aykjHKwSJ5sA7
Hd3j53toaGiR0e/64hWEGCuGt/pQcYltT0fZuzJcvebpEldDGoqz/GwP76nG
tZqz3yhSqHjU/8yqtXOqMTyH3vEhhI7stGWVC6S60Oumb39wNeG3rpNlGo5U
CNvmQTE9yYGzhcH+/iM0sIiq31ndwYY7/H1DoX50GJLT5jE/xwHPNcJz62MQ
ql7nrnPRpMKH4H92zNYog+2O6R++edPAa5f830sVBbBV1GZXVC0NXLwkyTIf
uzEg3kHXKp6Nz7qWNh991oXH897satWarMcNU33YE6kJ3Z7V8OL8Fr58Io9P
pxdU2Lo3Qt3QfHdtIo93l9jL6yxpgijlVd+jdnHQSGK2mnJmDchGpQ2c3/s/
6+GsdX99g4l6ysfRVZFsyIZoi75zx9WJ/GIbXDefVTo1j9sX4MvSP4IihkT9
3Rr0Szs3DH4fX9/ES+iVYEHPE6PJ/8BX+c/d+Q/YqGBSrS73rhwaZz1p3T7E
xNfXzv0RDSuGJQxV97NpTFz9Nzzv848KiNh5baCc6H82mRJxQSM5ULqQ9ujZ
HBaubCNtb/XNhKFXgnlXxobQXDDARNW1C15ZGPnrS7JxzFTx1++WHvBbZNW+
fgYHWy8edfzQ0geJvyik4z9oGHraw/PH39fgRP/at5fo+0LBCSLhdg9hcl+N
TewzWPe9ZTSfsMfkIjn70vIXU/ttMq9149UW7pWjowaf4i1lok41rx5YJjjC
wF6VW5hg2w0XahcJqBH8NHussuPjgXYwCxjzNsgg4sh0eZwfn4EG+/KOW/xi
onZJj9iq5nxMmchrkOXmublBuODQUgo8nTcmJGTajj7ndg6splHAaXi5V0Jd
M6r9ozCTdoIDW9vvDweNZWOyt33pM3UOzHPr4lswv3TaOVPxVJ2YvC98u6o2
4AQTVbRFy/+c5UDOar7LBE9C+6GoI3YEb9o1b6E+5zoHey9RW68asqHVLURu
xR0ODl2jLD+qw4SasjeNZWNsTE71/Ta7hAnklSteGV5nwFjrzGeuorkoaOEq
2zbEhBXi2+J3pBUj/4FDWufmsiDWn1Su05uJd5PTxoKqy2HdtZ3Bww/YoCpj
MtQpUArLuqLLHAg7Jv3N5Y2Q/aGd1buOgzErlpNminKgPNDi8neCF7DHpFoa
4lhgQTsbb9fNxMSaD3PnNrIhpC48df4hFn5Jia7YJcqC5qIi57HxbPi9cLFq
J+G3ybyd9Mfk8yb5bE2xVqzkcg5SnF5opYuTQInbhxO4ceJdb6n7nOjDb+te
65ksokBAus7GCKK/SQudk7OmUGDZkS8j+rU0lP5nmF8ytQDawk7Okn7Ihm3G
H0T8KssxLcDyhUYawcfuOySpejBQfm1VG+nJAIprtdCLY0joGTn/yczMXiTP
fPBjjRcJL7Rc1JZfTEbmt2HXi1Fd8HiOsFTqShKe3F/oEby+C3wtr6vQmkkY
0l+h+2V+H2wPbfA7JktFZ420RTVlXfBhou7ga24dGmq9YN/lTcP4x0J5aWpl
IDHBd3DPBN+Bis2HBOcHU/GTo7Jk7a0GuLSDRDOUoOEKD+vcJ1UfIabJW4z/
XD26Pdu3OqaDDhrG7yvP5xE6/7tdqec/VChofdqw7OtHDJIVuMSrRQMd3geh
vp4k/Pbb51YlPxOsrh84H7hjAE9Y9XwNKmRCmLdSoYITCXWNnoed3suGLIGE
6IDvdLxyZMmd+twqUL3/eWnkeSY2VkZf4oTWw/VEqvKA7wBqUO4+fPSjH+5l
az7jcx3E45bqvGeSBmBI5xmfM5WClA2NCvYl5Rh4XadqjjMNrQ9sfLvoSSmG
c/tc3UTfg6sOqePmbh2o07Tyrt0nMoDmxsTwlT3o7B6zopToS993PFo9NNqI
sSmzNq1JZ8JSl9erN6m04MbFdXt327OhPQJ+rzNswxny+265tjPB5NpA/Zc1
dHw+P/uzrFUH0rg4uLiAp9QhejjvPSptyMsKDqRBiAyjySatDfsq/bS+a3K4
+7Xjf/5vmeQrfpfvZQWe4aBgxfC11zZNeF//7cOV+8pwIN7oT5Q2B/r2CFu7
lNTgcBh9v7UmB76Vi1jMPVqJL3bcGUzzY8O50LlHD9nG4cFlj7t1lrHgFl0P
JDa6ozPYzJF5yoAMl12ZbYOBsCKT+uXqchZIyzY+00/tQ+3NeU52hK7Lt5mx
vepQDx5QjrxYnMKG0bQcj/vXujAkp1b/hBYHCo4cnf+GtxWNtTm+MYMUcBtx
ls5L78ATZNuGE6I0OJhe4HPtDw09FFPSY0peYFTQdd7kFhrukVifFFadi5N9
+sxE357al5N+ODP2TZS5mAR/LDVmfJ3LQT8Rdkz3uz6Q3djLt28tBz/9UXtA
9GW8dtO6Dog+LdZrm/Oxg42XBvRX+RB92vLP2zdm5zj4UbSbJ5jo09J7FgoV
rs2Fz49mjioQdSzblm+7SkYx/Dq45mAkUcciDgusDxzIhLezU0I0iDqmxNUF
67n7ZkmwdFaEIgdJ/Myjqc7VEJ1xUWTNzjKQd9w95zLBjxd3eheY7KqERgd2
Cus+G4+vTrT4GkYDA8elKhrDvTi3oefKT0U67HMK6JrR3IW2RsyU1h1UuJ/N
eZKb0YWDE/kzldcXTI7RDZLfA3aJP/zmT8M4HWXd2LaP0HRyMLVcnYYVenEK
tCA6qg2lydbc5eCu119X/Hajonandc12Rw42JJ+XvvuZhhtZji8l/7Lx8sUz
pNmZfdBLO+RXyqHhn6VL3rdrdoMMWVImfD8dZ7quvXL0Wy84Nz52C9kw1Uem
eMOKkRBDVT4O/gh70jDbrREeH5BzEe9goMu9rBdep5uhLnV45BrBazc7bXKp
bmoGXh7rngUSbXAlV1XfOouJort9n4h1NgKdtzHqaQQTr9+9Up+4rgXyRVcJ
iZux8eTLi/dUqXT4aCqjEfFPP8pH+yd3H6OBvZHZLHfrATzT8+tA05EOEDI3
9exiktFquxOVb6QbunYo6JYUDWLcxH6Hai7PTcy2EI2oYaMT27HM50MPRvhS
Nvac5uCTiG2taXld2PG+PD+M6P+2CT94rb734dvsVOa6o/Xg9eC02N9aOhZ9
drIpetkAu6xCE9/HUXGNUalkUEsL7DfZt8y6i4KPJ3QcZHB1nfdnbUGOaBPq
W/3DeEv0t8l9PL3/TO777kqX3Z4mHHQf093CTmzDwIl6D1oT9R7NdJ4vSqaT
wNVsdJvV5j7kUQ10+rCCDCMvaiqOhXXh1kDmIgmCp++We9dSzxcLcmua5h0m
xvxmxjlC8eFTz53kMzzDYrmLogbAxu+3cKbAABYcNzC8kD4IibetUt/ED+CG
a7oB2QRuC7Ehu8+iTSByq++QDVFXKi6JqHiX1Ez10cl8GJIxfpizgQbU+p2L
PooNYt6JzDKNFAoskrSyMb9JQu+JPoRcPowVVRH5UjoMqBpI/VX1kYVrLKxX
NtcyYeGbnN02/Wz8dsD3SZ4CC+pC5NOKpVmopU5iyQ/Q8ZPCrlNyhK7aKsyc
VRRAw99Kui+ECR2p2iry87UaDSMSq1QPEDprmr+x9MFl/rtE3bQTJNs6aPxX
D06eU9U2vmoQv8yBe6jIFDdm47JN8+kbxDnQWXbOfqkYBzOSO297XedAxI7n
tyyPMNGj+E7RrSE2vLT8JMMpY+Ilh9NRHwrosLp7y3flDVT4xcr4qGBDg7U2
lnX5Wykg6/8y0u4tHWSsO0kl/GQYkkouMiDqYrmaTE5+egccfZQ4eIXoQ+8K
rGdYuHVAaI9AdixRR83i3PTe8rZOP3/DJEmrfXI8HBjgUOnGH/twdevD+NlL
OHBH+1du7QoSfjiyWf70xhasLluiczaWjjGGaxfM/cqA0+tBt8KgGyPqe5Yu
n8kAIX+xGiuFdlzguUsg34cO3zKTpJi6k/2IMZWnX5/Knbh1jAnj0QejVxC6
U23rgYTmHzQYu54U8HNtOpouLeDJJXTMiQMlqj/KCiZ1K8RxdewvBdLQ2zl0
OBj4oib86iOs5uqig9y8CDWcIabsQwOrlMdfeNXL0NpMfJfEDzp45B6I1Myv
wjWNh41jCd7h+iMhTOBcPbzjfyS2IYcJstcqjA0v10D7xfYEMaJPDw6GZIyM
NsK9ZYsFM9+w4VeylnzboRTcLyUQ+4zgDQaN3zsJHgGLJ85HgD5xPgKzi4sf
Bd9uAIefgyaLg6lw+NvZVr7XTFDv2u0xNl6BNZKDBsvGhmCLd1zwrhtdmJDa
djhGkg3MrVTxtJIerLU2Pj1vBguOrIrdkROeC8FbeHQMiT4bsbFZbI9dHFSe
2P0TMtnAo7ZM435UOpzNup0ZfIQBw4eLuhytOqFUbMm8uXfp8PitsMa+v90Q
MnZbyfc9GwLEzpkqE/VZrjiw8zWhOzcnBh408aGjik2/UqcuB/z1dufPs6fi
50fP4iPeVYFwd/q6zO90qGgr2GkQWQ+U4tG9heeZkNffFHOdtxIeBEVLhKYR
fhvU77txgQkv+9fVrnxej6BqSoj0fri1mtmQHEfGnTKiPm9n9kMsz5CiKMFH
ow8fpPnWfoRfztvo1hI0yOoa0uuQSIdMtRlYTOTBtPMi4JGT3B7BGMAsfLun
TIADNdovW50tqBi072Wi+wYOrG+wWrDwOw2X6DvV7fRgw+E6ZdF3BO92L3z/
ev1yDkzr/zDzzp5hwdY+OPop4LzUDA4E8UWJzxHog0Zl6kx6MwlahMwvhBA8
+ViM4TyFxWQ4zuXJ/tw6unCv4hXtxf1IHv0dYWpFAhV3mzpqYj8O631/RbYm
g1HcoXnPHR/Bwfgx/zQiT6u4unAyj0eC9ydbH02B2MN60rFEXunlfJXsjRlE
vp36PnXn+zGwkyl/5goF6a+3Si+7OoCaF/TTNU8MYqlNQ1juRoK385pYbQ3P
xVDHSEleIk/OeHGsxyPT0fyyaJcSkRc/lTbPE+0nocep4b1Fp8m4z1nogW1r
Dyi6ewcYE3nG7lp0P5rQvYm5HtuvE3nI1QE4qQvWuitH7L/cDabXD+YKjzBA
wVHc15rgxbLzDobxuw7C369HneuHaWD4cJ+dVyobN9k+jTh5jQozjUMi1A9w
cBNXB0hyz0HN3NXuLh+nwenYO+S76bHgZ7yAzO6nwQvP+JoPajmT5ypgxT1n
meS5XN4Ls+d/tXlO8NxOXs5O/vz3sPDyXT0+Qhckb7Q7uvbrR3iyZGX4PUI3
zI1T+2WZ1wDSJvc1Ygge63XmstqmfWVw+lPb83SCtx6U+RYkerQSONx9upB7
rrnA7H7zPYEB6N7Ny6in0vDofvV3YQ39YMfZf7HxLhX1e7qWiXszoFPgknXh
mz7QL9yf/nQDHR7R41tG3fohJ0n7/E6C9w5Y8W4kb3EHyY/+SzwI3ktV5acn
dAeinvohCTeC12sc+K200bANigot9ZQI3n8iI1dms0oLGM4yvmdP6OT5Sfo3
CN0Mz1k31x0jdLKhZ9hJQjcDs4acNIfQyTp8F1aXj7Ghlqs7orm85OxfMe1Q
QgcVycfwBe0g9KdMlrEpoYO+r+mUUnQieO6R95trCd3k6PNql58nCfq557iT
dUv2bNbuMULHiyfM4hC6fmqfTNZtkYEV95L21oBXEy8mpTCndPXkvAjBL/6z
CF2t69z8k9DZMHkOnTnBX6A/zFSd6GP4KSb+PhJ9Te4d50veVgrO2DRavZno
a4ZXpTYTfQy3nH8cbkn0tb1m+hqthC4POdBcS+h0ULczlRQgdPnOeaJUQqdD
pEedsjKhy1mCYnMEDrFg+Une7hfzOuH7XB/9sfUMfGDqu13doAOkohfPS5hJ
wywuDl8ur1r9py/T9HUsbrfIGltM5KXf3p4bfmo5+OTmUBKTyEsLrm6YzMv2
AldeGSYNdt/89Te0uhndxnvHo6xcALZbkf0fMvCLjjP/nbgQ3NTuK+Q8l4UP
fWS0SjsZ8M8w+0mqfjPuT7c/YCrMQo23TZ90rfpQrNVveN1uFhIc5YPGrG5M
2BUzKmw/gJtgvuruq1RAUXMRIq8wSlh5tR+RZxmeSqwrUiR0NTX/UHeODkV3
11pJCJIx5xhb3TVpEPSixZrv3KGg1ooDm7f5E3mhmjxn3+UaNHbNkJMk+toW
PaMiB6tO1Lc7ci/w3z5x6egd9b/dqKEUtYCP6BMX+3el3dlPAnNmk0/bVSbu
fIl7Vs0jdGuzySE9NTa63axydwkehGsfhimBsky8pZM0wzyLDFmb02Iq4wcx
oSfLDQjcnuc1X4nYD0D7MGlrC4Gz6q1J8FUpEiiNfPntS+BUd+17uk6QDDnf
PFX3EziDrs674HKHAgXP78//ZkrGxhUnb2lt5eDDJyKH8v0H8Y+qiESYOsGf
Yj/vc7zGwPPmn3ouIGFn7t4EsZN0fHZQQChUjYxr+c8+sDrIxAipfT/nxQ5i
lJfZ84USHHxulyk1X4sMd5U535S02GifvZwltWwQrjfwzlq/jIoyH4XrH8hR
gf+6kx6b4H8UpTGexCIq+DwL9bh5noYOPrO8/8pSIPVbz64AYMOZ9tuaz2YP
4qL42z2/VnGAzbdRZf8eMo7d+r2YkjsIt8ka9aer6CiY+cNPi2cQFmibBfB+
puJy2UY9nSskmP1YdEm6NB2dt0V7LCVwXbaLtxKUIPT1gES46r+47sE1FS02
DC/YVxlI4Cpd/WTBhmVUcPj08lcWgWtLnJfBUAAN8ixW7BDcTIEIM2bHrfM0
cH4mb+73PhfoTV+OMY5N/d82xbe8+j5dHzzyDmbu0VLyNmJgv9/gpihSKWSf
oducIjPx1HvPPSaEXonbdqf3iU/eNH1WjE/HeC399RgodLJT7MrDYqzubk8/
9JWJpUYarsKe5djuqnAsQp8DGg2ndC0ZudP4fDGQNUtSG88wIEnkVHDFhXfg
LOP2fDebCYmLdiQbziyDO+FfupczcrG0JEwvVH/qfG2q/1slFT5/ceEdGp8T
+FhHrEO90WEmN7MMH7ZuCt3FZk4/f8Pv6VaXFIg8OtZpGsNcTsJu/QMnPv5m
oip/c8HXV3V4pino7YItHJyzdUN8uSp52nuGFIxkPt9rlMHAC+FtHXbVnThG
8nVYsq0PZWuzGF4VdHxV6anL96ofz8TKj23zZuDQ67bs+bk9hO5a3m2QzkSV
pxmLj1aQUGxJ8Sz1Q0xcelDSv3x8CG0c1A+LN07xb+57iR1g8SJKKK+AjpoR
1jP/hpDh1osk52sbafgkwyW4z2wQJnFN+iOvW117thAZL+qafk6ey4EfdUm/
8t/0oXetY4co0ac+RP0xDzzVhlbxdqx6QndNOw8C+5tbfF8H9uKC8x3HVHhZ
sK4o0aT9eBv4+kp/NNzBmcI1ibP7+P6bdKcuCLi7zaBbkoMqsgtL+3b0AKnl
gd+4HXvSb1Pzm/2VVEm7yeB5+VWB7EJCh4b0j3r494PC+G9Tt0EGJhs7OAgv
64Xd+nosfkKv329rOrGY0B+2sYpyP2tbp3BO4j6r5bshIpEO+dtzXUIMyWh9
ePnhhStpMKPkpduu92Q0CLZdvrWpFbI6t3fXjQ/BNPyw+g3fA6HnZKgufO2e
T/SfQwk/LUYJv4rYRshe30iDV82hfg2En3jDs+SCT7VNe6+yA7o/3RHX1+KA
ucv1Mw+udcFlgx30khQ2+C+ce/njof++VznpBzkDB88UIi4e9hc9iDhBompE
qxrhZ9t4/UUZgb0gfEn6oa4lB29dWBOkfJ6NYj+DwmY8Y2L9csnxyxH/fS92
Uk9OO3/HafmAtKprLSUaDAxQM3U4LsrGOVvMbmQ6DWBqrs+zfBc6Kt7oZd7V
p+NiIU2jYS0a3o//NVfDlI3xMkfqfn4m4c372yMHzdi4T0RTq9mMAweHq8xn
5NHQm7f1giah06a9fzHtvOG/um7S/n3Dr/Le/WGhZKL5Tx5Ngj9sDWM2mDBR
2aKgXa9lEOSjnO/sdGfiO/LSZuvZJGjrJ8c4sJh4fenhYxYPabBie0fsY18a
fsg6foh9hg41UfO3WJxmw7Efe/WeEH6TVC9Yo3OFqIPHzFT9Pf6Hj0zLn//+
bzHpt3z7xAGrQRYMLmxesP4AA39tFpl5XJsJ9h5uf8UyBjGg6sD7Oicm8InZ
JNWwCX3ss2VryTsmJBVmh0g40vD7lf08htI02Bh1KfGqHR3nOkgpNARTIC1/
hkroTQZmXZULbyH82HVQLo/wKyiOnWHoEH7M/3zuE+HXqXyZxD3NjzBtP8Ei
+wcx/IQfFUe1VIr/sCBlxzcLG8KPr1kvo5pMmCDz3SDcj/Dj5mNO8xXcmSC3
2rzQlvDj+ygRmxssJjgH5a8dJfyYs6Hk8hNfGhxfIhGRYdePjBCZYeVyGqrv
F/rJd5KEe9pUU2fcoGJe1IuWqPNkPHhWJj05ioJiV0+r3HOn4h4zY/vfvWQU
tFxrZf6Q6J/C4ZZni6hY5iyjelyYjRvdcltfhDWBkfjH9SIWTFyX6bV6V10f
GM1epWCs14VGFjlCmnQmXCEfUpWW6AKf7Kf+pxKZ+LhxXa6ACBuyNy0S3xLS
hDNkFZNbzjJhh1ISHympD4N2ff96I6IJtlpWBp4VZoNXT6F1CrFu0M5QwxUW
TNALkfqpRayrHJKpfEqvC1SS3pQXcKgod6Rw7u0UEtqM/P3+spXIr7mKTx8U
DOC5br5Xw8IMDDW9t81+GQ3Whx5bWWpPRp/OZluSFwViv57ZoptFB8cU0ytW
o1TsUh3dm7CVBk9OzhN+dJGKBUHq5bbNg1DM56rVdpGC60VmtGSNDUC4Irzt
+0TB3uNGZ12JdTNMWyJGhBlwTERneIhYtzvltmCZPRk2DFNGKiIZIG23t689
jYJKC14/uvaUAhJBxZ1HF1BQfKmOn/69AWjSsh/8uoOBvrf0urw/MBD6V2mf
aqDAm4yXkfahJCz+8vSQ8RIKtNLqmmyI+6kyB0QefWDAKmmFkrPE/a72h07X
Q0nw/wA7Ko8O
        "], PolygonBox[CompressedData["
1:eJwBWwSk+yFib1JiAgAAAG4BAAADAAAAREW6KUm8mru8zkbKu78rSb28vtCa
24PjhZVvhXkcT3pOgReCrKptZWl6L6yibYGCJyZ9oaNmF4EYEhGPGYQab66O
S0yt13+Ti9iTjk56nnpPPj+Sn6CeemmOdtiLHmUfuysqGIGDgxkYXadeUJ5P
aWUemQWNHBuFH6AgaR15lYUbY83MCglsrq1MYF+UUrNRMXwyfDGhkHxqZmp8
NNGvFGYVMKExj9LRo6GiJiWRQH4/WFfAwTfCZ2t+gJRfODfBm8DBXoBfNTSv
CAeTFGpmfpI/aXmOhJUahhEQho8RFBNqExJ7cpcNxHGwanuQEJaGghcWDw6H
l7GygW2DDQxyTa5MrC8uqFyxp6loWrCyhw6XFaMWU1S1ahN7NsPCaGyAHRx5
fJAyn1GzitaRISBzvUq+dInUMzKQ0XuPtIizddaKIokjq6otc4ghiCIhW7Fc
Li2qJSSKkSWKQaRAJJiKQ7hC4HWKHh1pnMXGcNKGTU6OOTrGxjrHzt7pjI0E
PD22b4551tWRxVVWa2coAShnKCdrJ31rjHe4fkCkmQYFk38IfmuSPdW2paak
jNmNyMc7htKPbH+Ua32SI4mYf2wJbGgKWlmwxFjAt2JhBosHlg+HB4uTCmgL
p4BehINuqKmnlYRubJSA17dhGxqV15PYg4QZiwaZxclVCQh/AaYCAwJ3d4wD
pUK4JCOYiXThjdl4pmekuYy4y2TMBI0FeLrOlhAPR8pGiHOzSGTLDg2XxNzm
ncrLiNSJj3sSiIkiBAOMC6kMeYVvkX0moGWe1X2Rq+Oq5odxhpbll3Kxh5fT
4rXJmOCK6Y14i5novkutv9rbwzWv5dzkPLbI4t3hzWK36N7nn55Qep5lUZ9Q
cyCgZaAfc6CfoqEwfKFmL6IwghajZqMVgqOipaRBfqRnQqVBdwKmZ6YBd6al
qKddgKdoXKhdcgypaKkLcqmoLSyrrG2CK78sbeODrIKiLqqsb8+tvq3Qjq5N
ra5vM9E05HDlWVjEcYfTsVuyqLFyWrJb07Bxs1K0n7NzUlO0tFO1VFXJtXTU
PtU933XgYNdh53bouEO5pbh3Q0S5uUS6RUbOunjZvLsqv7uaKbwqSUq9Sku+
mry9z9Ctmr2+2r+av6sswcBXxMCbOMFXNzbCNjXDm8HCcMOvm8LDxJvcxLBZ
xsVWycWcOcZWOjvHOzzInMbHdci2nMfIyZzdybVUy8pHzsqdSMtHZGPMY2LN
ncvMds23nczNzp3ezrpFb5XPz5XQlW7Q0G7aM5DR0ZB7cK/S0dKvl7LTsNOy
iLTUtdS0PpLV1ZJ9dbbW1da2YJTX15R/drfY19i3jLnZutm50Nqa29pug9tu
v9ur3Jvk3OXm3Zzf4d2Y3p3n3ujpnMjfdd/ImN3g3+DdieGYdLXi3eLJdOLh
quNt2+Orm8PkcOTDhuVw5uWWh+aWxOZxnc3ndufNi+h26eiZjemZzul4cwdE
LA==
         "]]]}], {576., -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.720766195067924*^9, 3.72076718709524*^9},
 CellLabel->"Out[18]=",
 CellID->1559565747,ExpressionUUID->"db824f94-ba1e-411f-85e3-8698988d3c7a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8efb661e-0e7c-4469-9c81-83cc20b523e4"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->390745683,ExpressionUUID->"e920433c-b886-42c1-837b-537daa2388d8"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "20477f1a-212c-4e56-8c5b-42ac1fd7ec60"],
 " with multiple region:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720763829309903*^9, 
   3.7207638316292133`*^9}, {3.720767179438414*^9, 3.7207671802949123`*^9}, {
   3.720767212990304*^9, 3.720767215780878*^9}},
 CellID->1573199338,ExpressionUUID->"6497ddde-48d1-45c5-9b9c-8433604906c2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"om", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{
    RowBox[{"ImplicitRegion", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}], "\[GreaterEqual]", 
       RowBox[{"1", "/", "2"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"\"\<RegionHoles\>\"", "\[Rule]", "None"}], ",", 
    RowBox[{"\"\<RegionMarker\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.1", ",", "0.01"}], "}"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", "2"}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.720736233640098*^9, 3.7207362747090607`*^9}, 
   3.720764413553823*^9, {3.720767218342251*^9, 3.720767264052092*^9}, {
   3.72076730776145*^9, 3.720767332663657*^9}},
 CellLabel->"In[25]:=",
 CellID->216995536,ExpressionUUID->"1b7c9910-3329-488f-b5ee-b5eaa6afcbdd"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "614", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{
  3.7207644139640703`*^9, 3.720764488961275*^9, {3.7207645317248898`*^9, 
   3.72076454584689*^9}, 3.720766192129031*^9, 3.720767182039381*^9, 
   3.720767265076735*^9, {3.7207673094114237`*^9, 3.720767337115831*^9}},
 CellLabel->"Out[25]=",
 CellID->416269892,ExpressionUUID->"2482cdb3-d61c-458d-ada8-7302586989de"]
}, Open  ]],

Cell[TextData[{
 "Smooth the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "70c5e308-bb69-4552-a3ae-9539ee62a389"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}},
 CellID->562216931,ExpressionUUID->"8400dbff-522e-4b49-8921-54c81cc25143"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]], "Input",
 CellChangeTimes->{{3.720736288309938*^9, 3.720736297460655*^9}},
 CellLabel->"In[26]:=",
 CellID->42782479,ExpressionUUID->"b92a7306-8260-4116-92d0-231c136e3e74"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000142`"}], ",", "1.0000000000000142`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "614", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{
  3.7207362980295067`*^9, 3.720736382731873*^9, 3.720736476192094*^9, 
   3.720739536196953*^9, 3.720764358037834*^9, 3.7207644083118668`*^9, 
   3.72076619353082*^9, 3.72076718456919*^9, {3.720767317201071*^9, 
   3.72076733824428*^9}},
 CellLabel->"Out[26]=",
 CellID->1354359852,ExpressionUUID->"e838fe7f-5276-4cc1-80e0-9a798f040235"]
}, Open  ]],

Cell["Visually inspect the mesh smoothness:", "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.720763715750421*^9, 3.72076372865266*^9}},
 CellID->1298578733,ExpressionUUID->"9b81d261-5c14-47cd-a4d7-e16a02c3d3ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", 
     RowBox[{"\"\<Wireframe\>\"", "[", 
      RowBox[{"\"\<MeshElementStyle\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FaceForm", "[", "Green", "]"}], ",", 
         RowBox[{"FaceForm", "[", "Red", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
    
    RowBox[{"sm", "[", 
     RowBox[{"\"\<Wireframe\>\"", "[", 
      RowBox[{"\"\<MeshElementStyle\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FaceForm", "[", "Green", "]"}], ",", 
         RowBox[{"FaceForm", "[", "Red", "]"}]}], "}"}]}], "]"}], "]"}]}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735682223361*^9, 3.720735718218481*^9}, {
  3.7207637314212017`*^9, 3.72076375122292*^9}, {3.7207674182114563`*^9, 
  3.7207674289540777`*^9}},
 CellLabel->"In[28]:=",
 CellID->1106616819,ExpressionUUID->"cbf0acb7-8750-4e75-b700-9bd4ac0d052c"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJzdu4k3ldH3Py6U5lKRoZSiVJpUypAtpFkqSZJI86BQklJRSSkpJUrKVEIy
E7LNGa75mq6Ly+W6xjRJGvy8e85zP+vtvX7/wPdZ1rrrnOecfV5nn3P2fu19
HvIHz+w8LCwkJDRmpJDQf34DNK4e8X/Jg89vvqx7Vx6Sapx47VjINh4U6sT6
md1KA6bPn08ye1ohunzw2InpxXCzbdWYjGwu9J2qfZEqWgWr2V6nAoOagLH2
peI2EzZUBZgKyUxoAOGcHnnZTg54v/+jdWBiDejLyJWfXsiFMDND/V+eZTBX
TG7fSVYL9Hzecye7Owe01nonjv7WCln8+vEX18VCYqd9SPpVHny4Z2czfXKE
Jo0zj8KFNE6CC2mc3ylcSOPMonChKsE5mP0PFzYQnHoULnxJcMpTuDCO4NSk
cKHoFwonwYVfCU6CCx+ucSzFedGaBBfmEJwEF74jON0oXEj0h2oULswlOAku
pHESXEjjJLiQxtlL6Q9pnPkULqRxPgpT59utj0ulcWaSdaVxviXrSuMUOk2t
qyvBWUrWdRXBOYqsazHBuZms612CU4msqzfBqU3WNZfgpNf1BcGpLfSfp/d/
flNT/vN0CsoOF/7ztAnKK/49XEG5of7fIygb7/7PUyko+/j+58kXlCeL/+eJ
Hl6GYe0FZSNKnqDMpsYTlFdSeARlgldQJvMRlMkvDPsV1A+bPwybPwybPwyb
PwybPwybPwybPwybPwybPwybPwybPwybPwybPwyb//D6/2fX+f/1dfxZ9HTT
29ZX+CAQHrkwO3BQTOflbfUXOOtmwgX2lmZ8Ruo1i/+1gztUGXJJv27qF0h/
mEf1Ax8iZxqRM2X0vzLwqHog8sEvI467rjMD35SrGVavbccI8htH1UMQVYaz
pN1jUh9K6q+8HSt5nN+OB3gfner3VWOh0Yrxa1e0ot+NBaHJi1vwctDX2oUh
LDRNbblq4d+OGxz0e6fva0PueR1uhksTvO1csOTZfg6aqawdTNjOh92/qw87
JRTi9WidOaFhHbCTKgMpYwzVHvZQ7XE7JQ+qKXlYT+RuJvW0HGMix5SME0Xk
tMwr+tabm4vf86om6Ek2oZ7LfTk5mwxY0z8m8G4eBz2L74o1n6sFybMVDt8l
KvAP1Q4yST/SDjaRfuqkHymjCC6UnlhRiZrRshkt3VVAj9NB9YcNpB0tZwY1
Dtwl49aQdj/JuGp1ME3DshQfeqQ3mnvxsfdLhDKjMAObV1g2/OF1oSep16La
QROpn/D1Xzt4QL0HSSKnkXoPbUTOStLPi7T7TNXTcsDS2ir7+hceyu8/e+J2
FBO5pzeeCx9ox6hlZYq+gwWYtv/s2GInHlapSygsfd6AvY97Zvg+bMaMc9s6
rr5twqPRmjO+XKpG0/d1uUaPeChu+1W3/HILzs787eqU1AAat2IP/HnNxh0M
TGZtbAWHnU912COrIDOflyhxmo961HvYRr1HKao/jKP6oySRM5XUZ1D94ByR
Y0jkApFjmNltJf2UiVkyH84+dqxDSw9F06M1JbAkxENB5E0T/mWpWJxe3gjv
ffcl/TpYjUuperAg7ZaRdmZUGVMamh9dr2Bh75KQF8pL2bCf1NP90ik5MEDk
8j+8vqHDKsXVSpL7XO53oXtEMKtmcxt6fxY/nKtWA2qkfpBqB97Ue3Cm3uMq
6j20EDnupN890q6N9CPy4cDj5Zcicznodtycq6TCw57iZC2Pnc346N6dm8La
XFh9q2bZDl4ljtvse0F6Mx+Y92SLRy3lgvmZT5XTVrfgQ9LuC9UPwhvG6N8W
YeOLwpwbA29YqCKas/96eREUXXaVWl9SjVqfdg2OO1INDjyFT27FdVhF1cMa
0u6VwqUt5WVVyNLYs/LztmI0zNK4nrirAc1H2RnMqamAsR8mClvMrEJZRnCC
hM3QOdPu/qwZXIqMnBJGySQ2XKbkgjoZh5ESiq5nObjhxECholwVBiksrnBY
Vo+xviO3lq0oxLet9hp616rRXuhsXZdlFOoW7r7xI6EaDWJuWEx5W4nTbTyW
rnYowCWrz7QfKajAL8aj9er1stElMOBNjkEpLHh8eYLFEA8t3RGUaa5XCfLz
b/6Ks6zEXfL73j1bkA02PJEpB+yS8Y7tg3PtcTWw00BHix1YinD3wYbI+0Ww
28Xrle6+HBRxO877NCUKnv7zL+34//MLw37/p16IPLfP15aoh3Yjx87189H2
VPA8/Txnp0sXLs+/f9tcPRr4JfPb+0zb8R5pR/fLe+jyoPtUF+48w/prEfIB
e6V55ezd7Zh30126TTUaXan2gnGIXGgn4xC5oE7GGYYHuFQ7vE/6qVLtsI30
+zHyTqKNWjeZVy3GzJBMkJjfhf/csHgTOjI3zdjm1YXRBb1jjJzLBfXbbkZ7
bRHvEvRjfl0bO6jQjawrl66L9nTS7YBuf8mk9oTNyS5SLsNstuutpBvd0DY4
uIgjX4v9Zv0JXqu6iP8vgyzqPb4VfZC+/msNTC5wZz3bJMAFFyl52ECNJxiH
fl9H6okcgVwiB94RuY7/hasJTNcf2vopkgmHupT3TvSswt2s5dIi/FI4Fqi6
/M37PHQYKB50dCiDX44zT9serMfmuRP099c1IVNBv27B8jI4QfWDvUSO6EWb
/Vv4+TDlB9PqjHIJjLj0rx9cJHIU2evjTq+vQTOHpVtKjpfCuCo3UH3+EgeM
Axa5XmiAv5PcONI33oLlvVfOfjqV8H2TjenVRfHgWiVyXEK4ASZvHtyTU/IR
jnbH74lsZIFT+fyhv27BPj5dzDtVPOR/6F+6HuIP/ZA+3Y1/d6c2jrFuxX28
AyJiCl04LsFi6K8Tpy/eWZ1yqVXQnsiFYfKAlkOfh2MTr6x4OrcLJUOX+bie
boUQrYNd58610nIF54bGScuh5RJ5gvNG5AGRh68oeUDjpHHRcofJE9TTcmlc
tFwaF8EJtxIsKhdv4WCva4Bw5IJ23Cn03theswXbp2y6+ncDHwdu6BwLHtqH
FC+thbpEuXLLI+04ZeUs7Xle9dA5uPLHHoM6NIxNQsaFdtC74PJW0boO9l8y
yhDya8ffVH+gzw2f6g9/VvzrL5BLxoGRRC6HtDOj5IAWkdvbmvUx0CAUcxcb
MeesL4eX59atV10cg50z9aXjirNAaxv3xK3j4SBvbedn4ZUPNqPSJ3340obX
5Jb25tkM+Z+xkqedE/l4SEmt1zmhGYWfOIamVbdiEVfe/8F9HiyLvONwaTYP
igc8lBaqtWExqReh2oFy5IWBwoev4FWrnPSHbe9w5tEraUZL2uFE3MtHVy7z
cKb/weyxC3ngv++gxGKtFpQ1mTCYNJcLj4VV83JXtOHNgRwVM8dXeG3tdnFd
gxfweDPrj0tlM1ivu3Poq3QHCmlc/ss3zMKD2kzF0XrpqONk7SGrmQDPjk7V
en04GvyS24XujklHjtox3jgxf0xJWbTfoLIEH42u8OvR90fe1S/ZpfPC8LHC
uO376t7jtblqi+vvRiH7wV3LDStL0aDSbOf6d8HASI5T0iv4iMaTpybVHShD
xeL0RS5xMdDdNaf9GacMdaRMqtEnE0W3Zh30/RIN4xpYpVk6VVixLK1gMD0L
5jwa3XBJIx0XR62TiCmtQc94YxHJvDDQSV+zNvPTkN81Ch39ySwTeqPm9/9d
3YCip+LlI2SeoPbszhUbP2eC6qKJ2sqvs+AzblzYM6YUVk5KbT7Vfx88x7Yf
aRiyE3ovr7mo1mRATl9YRs+yAnQNULEybS9AUbkpFvujMuHVzLYvqiKlyBp1
TTtcvhQMVByuF5cmoKLVfP0zO2thSWfxKR/RdNzb/sLskV0tKIu6bn4tHQ6j
a3cWXmiogv37v8f2zC/EgLETZ8Vsa4RYlbH8i1cT0NpK4svWk9VwznJv1fRv
GRB4xmkgSy8NU7elt4nYcLGqQ8fyxJtoOFqiFe+/j4vpVD1Yk3akHr4Pa5dG
lQVyHlHtgU3q6X53SD0SubMDjVVeuzWB0jL/xeyBMlxG/cIMUm8h+75aw7sA
j0uPWZAsW4cb5Xf4rsyNRfNUoYePQ9hoO+Ht5iNZL+G25fYDZm4NaHZtTNbi
xHbUiXnp6VRdj72tsjcGCrLgyUQxtQ9/mTBHXoo/V7wd65olipNP8GD38+Jt
c/Rb8e6jSK5zEBc+TVB98Qabcc0T3TvNO3nAJu3mUv3AnbQzpfrBKtLuM9UP
QvsNWBvUM0EqzO+owU8WWtvKG7hLZgE/J0jOQuQRVieV+6RxKuHC5r8+7xcG
os0gU6iH3QjF44Tcaj8GQX9U/M7GIwFYOqGFM/9RFV4+CfdPHy9HhdGMMNup
TXhHbtqY0gDEgqj3c69s4GHu3lGrr3dl4RcxvkivTxsKJcw98dc9BZcdqBko
bGhDuX8BfLcg3zBt/Y6hvy60P2qnetSu539+xxM7TNvr84ZiQ3/dKLpSW2Sl
duf//FJ+OABEU7qOzmT20GWkyzR/ocfX+/d0oQn3fFLYnTbU3xc1cl9UN24s
P/Ta9yIPr7R7abV79eBtt/88fAwP+8/TgRzTmF93E3oE41ZlKKp8W9CNj7wt
Eqbv5mAzNy1u3fRG1NNWCdoxuh6Lw3YcktJuQI9Cn0lHQxoxRnRF5VznOjRe
mZXy+mkb8pvlM+4KN+GET6k8Jxk+3u0zNTVWb8CQnEk+e1a3Y2a6ntnsMg7m
WI6KPx9fgc8yg11Cv77GkR87AyL2M/HuQdbxtZtuQfdmM6VLSjV4drFi8cRP
F1BKxn6eQ385mOo3SzYP2d9bUQ+b+D+KYcQs/bGTrnFxUbhyxxq3clic7vu7
+14LfiTrGEWtK3wj68im1hVUyDouodYVnl5fZlqiwEPNuQ7bZzWUoZnIXBVu
aBtGOR/76OzOwDk9u/2e2PMx1THi70KpMlzT3X78wJAfnqeSU2Y/oQqT9xYc
6fbsxN8Y5Z7iWIO/tRdK163tRDcTdpZPDxNHDVvHYWVBHoleV6cOBY9Xm3rQ
6cmHqtkGJRiwgmc881oXuh55vSmiIx+DN2Xk2av24Mtj18crqmZj74TVp+2H
4s50+RnnVoyqwqh7C9bf+dyOZmAyuvJ0OS4heplP6QnNiB6nUHpFYaJHV0qv
mPbxQNm4q52EXwegfsPD2KUSHRjq2F++bvItnHZ3fIy5VhfJ93jDtzDGkcB9
rTi+VWFkkGklMij9w2Zyrsg5gmfkXC2m9A/p8dS5mqaWkT1TthmDvWY6vapt
xLNf7030YnCQM0POddvWJrxS+suozKAGl9tlDGyYUofTVRRifHfVosXObazD
oQ0Cvv3feuQgL7MmP2R0D8759zQLyoUz97HHJrFAW1q0nb+OA3La6bsyfWpB
5nDWu9QtdbAgGy+UdbPhRaqPvLw/Gz4yG2Pn72ID/8YTHwfNSiwVW/M50pMD
vS2/v3RGMvHYmJmqUroNMKt0TcWxIf3G3Tm3Y9LrIjSb5r44Y0MP6unP5cbE
5ODyp8s+XRmyBxar/z5VSs/H8ZEpM7RTukh+JBoTjGbu8dvQjQ6XVsUbGSUL
2juEfdTVy/4Irnki+RWTuLjTzTQ1MzgPYg22cj+uaUI3Ofe1XPFESPU/WB3c
00HiqQBICrzG9nHuJPFWBNy1SSnQl+hGfday0bfqMlD/+rYnJ6Z0YoKciz23
JB/P/nldGcHrwDm920Zuel4NVSqTnm7jfoRPb6bJrrjChgabcwNPYzIgSHXb
kqVRbNDWXZhWGvARcreHR2+Pi0SFDXV+8mF8nEPtC5Q+c8DJM5mPVdNfcBw3
BmFvdMGFwz489Hgod5SnUYkrxc9r9coNrYu398Us5wp0fbzQ6kNpA/Z/OL9D
02iIN+zSWs+24+Bk3vE2pSQe/i7U2cB+VYtBcypub5BvRd6uH03fDVn4e4aL
RtLkFjRIZSmkOdZj2fy+vRtzmtHfOdXHdX0tzutNSLf7xsBxxxzj9vQ3Y8/f
kDE8RhHePbbDrG5aE0q1fDyx8k8ZBop9F/7U14z5J3rOyU4Ox5NJ3h7Fh1vQ
8F9e8j5acGTOrLVvQZnzsqpvgxPxebLmF+UxHWj6aeTFN98y0cS9cCBItxlP
3H2Ipqa5KHU94eC8m1zkGBXqTnXLxMvrw7e7xrSg3mMT2wVNzKH9fnuX5tQW
vLHq+VulnGosab+81bKxBSfe0o+2d2WiFuf3ZIvEVozYfdm9/hYDl8wxHaN+
tBWXM0/unWlSiG2HwwtjddtQTFNmFNs4H/2X/Zn+jM/HKT3bb7++wUYb8ZmV
WlY8XGobJdNQxEbeujTTLZEtCB7r9vMf12Gk3ZHUNSmNwCF2/iFl98FspUUX
26gBj/IHt8+VqwdcHPEidUIdBp4Z5Zg9tlmQn/dMvRCk+KyL5L/rcOGAf+3V
hz2YbnYhTD7pPTjPkDcQU2uC9lbhHSaR6SBnqmz5ehwHDCh9gRmlL1CNeHtd
LisJk/2e6R/sb8Gyfv3lsWNi0fp4ytKzDc14g9hx4p8hk9jxr8Su9FF2BIh/
hmXk3DymzhEkknNF5RejYQI5d67UOQT6HFhQ5wJsyTmopc4FDPO/MMw/wzB/
DB905FeWK/RgMqUX6BjReJ4p24X1JA//Fj+sE/7RjYP/nkZYQM6NuOG/cwRy
5NyYE/tKn5u/1DmCW8QOXKbsApZaBYdLTGnG0B/LtlesT0a5lf7lZntbUCy4
lDHJPgtXxFgaPzfhI/Ohz057HgtO+C+bKVLTgZVH2F0HvOsg08cuQKugHZ/k
7B58114DC0Ujlz0a203yLW/RzHilyuGmDrw3oDJewToRzbMaJwYyW4Aj+euK
lVQS3BjZeE/ubwt0/OOlAXD559U2+Qs8SP93DxkJJtEei+UWc4DJOWu8J6YU
kuJ9anIuNoJ/iuSkscsLII6yY2BE7BrNk2h90nyF8BigeQxdpnkW4WFA8xrS
D2heQ3gOHCHnup8653CM7DMGte+A3od61L4Ez9dM1tiQJmD36ijuuRcORN+Q
Tekb+jXUy5z3cUDz5v1r06wSBP6c8EQYxgcF8yO8EGj+RXghDOOD0Ce7cbHs
z6G4ZfOZma0JPIGfo/Mx9H4ifk6gZ2NK7/iU6DmB0jsGE7ulS9kxIPsFJKn9
QvsZcCJ+h7ZjFyi7BrQdXUDZVaDtUgJlp+BU3+c3pQ5NuCkpYnfgIwa4PH5s
2GLKxWztQs8plmWwMHf0uJcVQ3Zx7Z+D1lZ1cH/0NKW3Ms1ouv7D9SeKdeAm
+zmmL7YZB6PDswoPNoDBpK33K7mtWLdXrE/+Yh0cs7I0DlJvxWeVYuVTFGrA
aFeuzaWxHJRjHpnv/6UGRu2YdPe5Fxtfy4y/8FqkBlLJOhN7DmX/7qWDIGLq
r5tLPXkgR9l3IPYdonWaP38cimc//ulmWDi2w8Y1ESoiF8vxrE3hiqelPLje
drLtK4+ByoqzbzcJ8WGBhP6E0e3NuPKbwU3VmnY4cOX5LONEDp5aP27Vo/0d
UPf6/d9MHS7qis1MmcrrBFPiR/aQcfvyjaKY/k2o86kuc8PcJrg2e8+6qKND
fv7CjeDZBk1QQ9b9J7UPgEfsvjblB8CP+LkSyu+BlGPuoJlxLXbWDjQVubbA
1eY3OorX2KjHfOOlZc8FBca32dGXKvDYVM/BY20dcNnNzd9BuhIb/GDWvPou
uK97KlLqRjW6VGx8UgUdQPsVKcrPwKF9J5+ffdCB/gw7RtrzUmibV77aLjMX
u7c9GuXEawV2sRRLwikHT8VZ5sy7zKftA76l7AMS+4BxlH2g7QlmUvYEn1Lj
QbEG5desqPHAiRoPT1H2GfwIb8k5viR/nlg2jk4sPrhgXQ9QZrYIA62zdM0y
e2BspO2Ek1vycKHiw1c3RbpJfjcACT+Cv25jvGbJ3ULN97FpqdM7gLqv9IYJ
FM8Fmk9eiTgVn7SqB0TFxeePCKzHZBbf08WwC5p7ekQbr9Zh6pLLdfkyPSA5
YMJ3/V6JeT5HtU+L8UBNTH/j/A21uMRdWdoxnwdKfZNPXLnQCsIoEnf3OQPZ
1PpCFTnnfGp94WcF5edpXkF4BtA8oo3iFdBc5FBo41CDXlYXRkW4NcARp2qv
KvVaVDLyEzcb2wSeRG/0umUSO02vSySx0/S6MIhdp9dFZJjfG1YW2GnaD2ZT
6wFkPcj9ehGQ9cDR1HoAWQ/MeDbl44vZHBz9SGLXDNchXnbn5bh8i0b8e29z
/IWduRhPeC7hvcil9huQ/YYsar8B2W94jTqfQM4nviN2mvaT44mdo/2k0TuR
Bt/oBth59S97I4OHeoNPXcXHsaFy7ti007ZtaDS/UzRyWgOwqjZy6r7zMaZ0
ptzdlkYsWJobaGcUh7273kiVaDQhro86LnH2NVqbTcvTKysBoTbPmvGS5bin
XT1/uXYBsKxd3MdZMFD2Qaf52XV5oF6UMFKrvQIfhj8e8eByNbRvUss32deB
2dGVb+zdK0CnImFWW38HNowtO7ZIuBJO7BqzfGFbF+qQuCWbimNQjsQtUlQc
gyEkbplLxTE4h7IH0EHZA7xD2QNYR9kDDKbsBzAIb74l6fhQubEWbLbPa+Hd
acQeih+CB8kLGCplOd7rLYPAD9O6G9zbsW3mvZS8ofh7y/Ivu6SaeZjaqGaz
dWQVBJt4WHRK8TCU4o3wlvDIlizZdQ8tmyDwTcSlt0nVKEf5F9AjvHkK5V/g
xyeKt9+n/AF0Uf4Al1P+AxiU/8CzlD8AV8of4B7KX0Au5S8w2ChZ//ZyLhzQ
//G+M6cMPeIlX57f3gS3s0RDjcyL8PSCkf2TJzTDHIuJnaVDdrjvqtjtrkou
qPATGG/ymzCT8IIzFE+AeYQXpFA8AVTdjUwfZPIg+djOyxc4Q37g+wyZ752t
YH3SYte1MxyUGb3ohvWuVthpfrZrVVETXqPOL6SRuMCc8GBNEkfQ+Xg6b0Tz
gGF5IwFPoM8fzQeciJ2i+QBdpvkmbRdV/n0HUiEo0+f0v78zKROU6bwXzWOG
5b0EPIfwLwFvI/xLgPfjJKbYVVsenBND6SLxHqiZ3Srleb0NmJY2EqZ5XTS/
o3kctKycdLHcZmj97XOOmQIHaD/mSvbxZ2XFl9Z6LbBp0+YL+rs4MEwf+I7i
RwI7TpfpvED2zYrXBX/aYCmJm1/oMpUMmG0g7CrvVc9JBFuKLwOD4suYT/Fl
8KD4MgLFrwEpfo00rwijeAYeIrwiW4yKI60JD7lJ4kxvio9B8zkqrpxNxQPg
QuJqSSoeADbll9CO7MMwEielkn04isRRKaEDaS4ZHKh6vifvB7agedX5KO+3
HCgIWRewr7sZSXwEZ0ieIYaKj8j3FdECXknzTHofXab2kSBuocuzu/7oiN1q
AzoPOamua3nfeR7QeUh6Pek85Doq3gJlkocYS8VjYELyImlU/AR0XNlNxU+C
76ZIngMekrxHIvHj6mT93Kk8B7n/jRDcb9HzoeMCGg+978g+FOxfOs6g9ynZ
t3R+FSaSeQ6LS2g9AK2X+za+rjPHhYGktp0tb3sTvsxRj/4REA9XmDXH9o/i
YDLhQXTcVE54EB1nFRPeRMdZAYRnL6N4N1gRXj6D2FFJwssnEjv6l+JRNI+D
RYQ30jxjMokD/Mg+TKb2HZB8DrAIz7hC7NZpyo7CS2JX/Sg7CneIXaX3SyQ5
Z8P2k8AO0e/7CM+/Q+x8FYkLlImd30niggdUnADxJM6l47DJJM6l4xg6Lqbj
mFISNxgSv+BJ4oYTxG+MIXE2yVeR74miIZ6ci4skj0CfGw/Cew8TXhpD8gQk
fwZ3qX2JKWSfUt8XRCDJv4GReGmCblSXII+iKZJTl+TXI8ij+E4cV3dnao8g
j0nyhUDyhaBL8hR65BzReQWSZwA670DyEIJ9T8ed9L6n7fNDEvdnE7uWR/IE
qsSuFZM8wWliB/9bXq0AP/Ud4X++p6HimAEqrgEDEse4UHEN0DyOjvtJPp/O
Q0M4xQugmfCEByQvxSc85DzFS+A64Sl03EHiEJoHQgPhhXScdoPwQsJbgOYx
myneAjzCY+g4IpfwWDpuIHEEzCR2hvgNHLhJ+QniN8j3oxWC+IP+noPe/1UU
rwQtwjPrKF4J2wnP3E3xUDAkvFSNxCVmt//FKTCaxCW5xB/wKd4INI8kvBEy
CY8kvBE4hEfSeRLab9P2kLZ7NL+g/XYXiSNnEB5ZTOLMl4Q3niBxrgUV94IO
iXNJ3AsqJC5eSMXJECoxmREU0YQKnyqPMD9x0YBnfkmjqBH1nrwSDvTgCvI6
NC5ab7QdH5bvF/hxOj6j8y70+2H8BPgUj8BWwiv0Kd6AXwiPIPZewFOIf0Ca
p9D5Jdrejx/23cawPM7//BK/IfAjxE/Q93hAnyM6n0qfM/rcKZH4leYtg9T+
Q3/CW+JmLA4te9kC945+LtX2Lad5OCQSXk7uf0CC3KvR586N3KvRfo+eZwrP
Nzx9yO9Zf33nLDKlBxk/wlLLhvxk0baDTp5DehnGI3EYb8RyKr4GEl/jT7Jv
SXyNsVmJKB7MBK3yOb1mlR9hUPVqhIQtE9hCp5Xn8zLgE8l71JE42SMqztXk
Rh3OGPzRcvW8BxhsKfGVZ7Pwwr567hOlV1iQaBN50iceWTu66+YLc6B5t5jz
yP43aPvhVmvUliZQGrnzlrkJC38wGthWMRk4+WQORrqx8YbLhrvTAt/jwnUr
ig9OZWHRvo+3RKwqobF4VPXGXTUoedYiys2jFuh7NGXqXg3oezRyPwmvBt1v
hmhU4I2U7/qsK0Nx1Y1vkw6cKUdX58YMeekqaLgT3t/1rgSL3d9vmB5WA6dG
rBrBMMtHuTobt3OlDdCqZp0wbd1HXOQX9dLsIAuunX/wuigsDZ2id5qNmFsP
QroDXYv/bkcDn6zckiwO5JQd+nI/3gt1wxy9P1Q0Qw91TwVZ5N6qn7qnAga5
t5pH3VPBQXJvZaiv5ePdU4F9cw0qar3a0N0/V+3gLBZON3kgHWXZiRnhsyf1
qFXiqIkLxdaxujAmatu7BKzEjbZOpz9L0vfVGYL9af1q6tXVNxNR/aShWnp9
p+Ceg9x7QNXeJpnAKTxUnB9dadHKBPqerJC6NxPk73dS92aCfUTGAS0i148a
ByIo+aBM7lUaKfkwnpKPppR8iCL3crQf1yb3cv8d72TgSko+mNDzILhfkXFk
CO4aMk4swU3mAeS+T8AXaNz0OKcIbjUyDp3HaCV5NL+Hh6yVFPg45rhEcpB8
DvrfXOspu4KPTz17DF1/szAvLMZv7a82TCT3s0HHYmdmlLWh/qFZdfKNicPy
w2VI3yeLTg56Z9RZgbeK76fKf+pAlROWtSW/G3Fh1qYP2x06sUdx5mP3pDqs
vvjOa4VbC0qOUU4bd4WDerU73G/WtKKouMzMBWlNaP7dc1pnMxcjL2tsej4U
T0icj8n6/rsZp/zIyvm8tBVtF0pd8phciyx1iyBTaT6aovQPleuVaB9S/q5R
qh09nqvUy35qwxO80NRr25jAPGFdIP2qFbu2ZjDn9vPBYWfN3LgtLejyQWWa
ug0PNs9jrJ8k04KB88o3M2r5oDbpT9b2rmKY+7HFKGr6EI86NLFfKLkGPAOf
a7qLtmND17yyriE/NXrLLrV+Fg95Ac8kw9KbwP7pe25aRhs23LOrrkvhgE2b
Y4ahFg8fUXhgK4UHLQguT1JPxgENMq4HNQ7UknHJOMAi49LzIPMCeh6O1Lzg
JZnHFmpesDHIckT1o3B8bbPv5a7tHFR6kh46/eBO+CLzbtfIPA7KrfreJpzv
jd8mhvb3e9fjrEjv7Yfiq8By8aF04SoOpq5gljxLqwCXnc2z/qg3Yd25B1d1
zzAheZl8pJMPG1eZq7vc2dsMrG/bEp6LVmKb+VmRC6drYMOi3yvAthqtKDkg
Q+TeoORAMpGbRskBFpErvFXOe9rYJhxlVOSgplGLc8LfHtxi24BfZSyUJh+q
QTkDWJA1uhE9n/1dI8YuQ+uACmfhrWzc7AGSfq2V+PVCxqIkOxY+Qt3rTkFl
2PenPl9hYRMOHkjK1f5aCWF//1wstqjAEe/GP//j0ACj0vwmrO6vxPfBKtNH
8+tgRqZndb5oBYYk+Z4eP6EJhCS+GU4Ur8LSvd0HOofig1SRa9vXbCxFCbe+
sZ1RjcCl5g3LiR62UvMGLtHDMH6GL27/7SqcXiG4vxf3UWlKteBjn9gb54Xz
ONA3bcy4p595KP3rHrdMsQGUqXwPOlL5Hsi5PSLY2boDTyZ3GZ/4wxxmv8oE
9i6MGgdmUPKhk5KPQhL/5IMoJR9zKXlgQskblu8pE9i35wR3L8EpQeROJDgH
KNxwjuBcQvJURwhOepzheR9/gpO2b0rh6rLalUPn8bJRhrBqB/ZtXdAv1slD
HWOb8YxevoAfDOBlg9KGDpx5dBFfV7oBPz8MiNbjt2Eu/9Z85m0OZkc7BzYU
tcJmiueiMeG9xb/fHQn0aMKCQ+nZW3e0wZwEPX0TBhcnP/BbmWnDhVixpo2O
TS1Y7Oi9i3O1CTSpc4kK5Jw+yBr1yOhpDUb+DZX9yuGDl+658IW/6rAUND/s
smiDirfnxTZ/bYJvjOijMTqdyCY8lfBW9NeT+/5LoQVSL31PNPrQgf0SkO8W
0QJXWkO/v1RvwUyCO4+aB+QRnKUUbphIcM6jcEMhwZlA4YYfzKWHtetrsU8r
xNZ1UQ0W5Mqfc1OqQjfeS36FVw2G7TjTEiTTjP6d7atshvb1lSjZL9njmzDZ
xzVVeWQF1hx407VyRAXc2fNj+yLeOxSK36U7IZkJu0XdIwdPpeDfCU6fvH2r
geE0sUL/fhy2OU/0uH2xHNO+/QxOTWGi75KAz32jytHjRFHGO4cy/HaB33ZI
rxrllEycRp4ox++3+9/wxath7RKh9hEVTNwqww5xGlsF1u1KwVuW1mL7C+l5
8VMrIGqFopX2z1pcrgeFt0JzcPHBp7LBv6vA07Ej6hLWQ//o4qjsw1koKffB
zU6qBvQVDnrqeueg86prX6/eZMNkHUvmmR95aO3EcpLpLMV+JcnFVwKrUUip
9fWzL6UoKcNlzN9Sh5q5QdfVbhXgViXN25PtqvHypLviVwwLcbaS1UwvRiYE
d207P7k0G6+LagY578qGwov6nM05BRh47ESRn2QJTH0hcbfVpRnVP8nfy37B
hJUG2P9EhoUfA6+X6PvkQ3JJ+rOHW+twP5Qx+meXQ/46dU6qfD3mL/tY7juq
CB5tS+KtHV+NjEeKo1jhFaBL6QW+ED3ZUXqBzURPCZRegNZTsILRfcURLMw9
sUS7KZ2BC0de1B23oBrH+ouV2UEWFozeLrN6LxMnhlXfNLHLQ1FDpSqF72UY
1ZNdGPKMgYbH+jdN/VmMLWbrZ07IyMWJ9pmhckvycYHjHNWH+eXA8xFafzey
BPvHqX6VGTXE56uWTQnXzMSWjhv1rzl1OEde94h3ZB6G7d43Rz64AbPrkl+O
3J2OCvOrqyYeb8Re8d6AM/3R8MMzbabM3AwQXQNQ0OSMo3LZpmOjc8FtTpzC
Y41rkFS2PemWcypsa9865WwUE52kJq9PyE/Gw4fZ7gGtpWh08UvYc8sEjPB7
YRVvWQ4hfxgWF68Ww8u42qQ3S6sh2SrISYpRBvbMLyIymWVgYzH/qtecctCU
0PupcI6Jl7X6rV8tL4Ew14RF39UrMFLD9ks9qxwkFG8e0cd0dL0jfb/aechO
LWn92R3LwRlrpP8kw1nwXRP1lDO1HsMNuKNXfI2Ep7YLChvkOVjzOEpTWy8B
ZC4Y2a0LKUUhKakx99Z7g45FGE9faoiPTEvw1h8fBXFdX9RNtsWiUqmtwiin
SlgTOtmKXXkOHu3/E9aYVQEtqVd1gw8+wb5B2V+Zv6ogRalF6o9FNGYeki5d
7V0Hyclcv43CFZhvbP8rmJ0HqbKMvXlD/uuIm0YO+/oHMHq38Ne+EWX45mdS
5I9zWWARZlywuOE8us+bye/fl4kf1p14NTogBFTP/baOfY5Yeq9q17yXpzBu
S1H3jIw4pPXmQ+kRayYVqlwsLAeGXIuDjX0Z+mRfuO1v2CKIz9xijzjcAy4y
4922vJHpQi1zz3vv37QjIyTdKrOvFaNGn9SatZuPtnNXnlV81IKXLTRSZcd3
YFpYDldOuoXOd2JId3SrmWELBORe3lcyugsfsV8ytwAXlJ8qXOr1aEVlTX76
belWmGK2aaPNuTY04sqqznPigeaBrzJBi9owTqPZRE6sFYKo/kD6C/KpwZR8
PHhZRWPQsQXk/O/merzh4zwRhoZMYAvEXDno4KDahiZldn+f/24G4TkWkvWv
+AJctBwaVyAZh8a1hMIJuwmuqRROoHFpUTjBIXOLs+afBMF95TC+jud7t++u
WpAJCdrxN0uEO1D+2bZ3PhI5cGdSr52Td6fge8zl6d/F1Pb9H/+m44kO3Sdz
9ULbseDilr2uRRlofK3VhbGiE5VXvihXaP+/e+vLBMeweIQeFxwJDjIuKBIc
jlQ/gZxh8Rg4UP0wnsiZS/XD20TOf8cLTYL8I51XWSK/aeNv/U68EX3KwFOo
VPB9sWKUzs0Le1qG/Z92K3ZL3jlVWNKOhltX3nrry8L1bqY6Wc/rMURed53Y
oaF9yF1jNytyiNe6Lii8/LwDS5rHXnll1YDM2YVjqqo7MGZ0a2zWq2aU3eo0
JkS5A+nvqeypvMiw/+uuhbitS7tmqvLxgHKESVofF4rvjJ313JCHa246cOW9
moHGReujK6lgEnNXiyD/Engye8FH0Qas+uLYmMHlg39YWPpTjWrBff6w/AuM
ehA+fm1SA/JGbpJ48bkDhBZ/vbNNoRo2tq7vLhrCSeOicerZrC55cKxO8P6Y
197PsXfqQe9BTKCraRetN0H7bgqf4P7kIMmrHaPybBi7tbxtbl4DdLZLSr4X
6RTcl9B5o//Ol9ViwpmDexL0+DD78WeNl4NcfO5yNmNpRBuIuo2o3L2/VaBX
Ol88DD+YEb0mUHqGlUSv5ZSe6XmBMNED3Y+WQ7/XJ3pYT80baD3Q7Wk90OtC
1omeJ0SReTMqzrRHLKiBg5OOHu8zKsXl9+vcY3Mr4XaRV63wlHLcmGayp2FZ
KbT8Ksus82Fh4NbIvPxTuaDw4HNZ0fF8WDhPws/YMh2eqigI8Q8wwPNr0MSw
wvcQwdC21n+eC3ZWMffXv3yLI/ZtXyUXnouHuAsndzDdUOcT7/xxaQae/jvG
7/CoPLD1Ek/fdKgWGfZ9Xf6PC+DOlP0nOIvZaLA7uW3SbA5W+NbmPdUogRyX
yut+Lhz0fcye9upGOWyXzPWaMLIUxoaksO/eZEIXhRM2E9w3fzxzyVTJgL4m
M07TWTacW3Nk3r4tHyECo9VkXRvgrPovKcXqY1DVcm9OxcQS8Dk6980to0hM
1fzBuazMAMkFdsqKExuR8yH576cH2RDk3LrnQUUVjhpTP+f5lQLg2f1d97Ho
Niz5EmQsXl8LjR/2ns977wvp3jsLijQboKfQOVN+IAKWr5nhbfeKA9aGP7/f
NElGBf6A1rdNZaAgUaFQ86cYBvYHLN24kAVCPhN6DhTlwKCTed6qT9Uwzaop
2fYXAx72bHpZolYNA6Gmirl90fBt+e7vJoG1sKbyeW1acxGU+iw3v9LfAL3t
a38LKafA7yLj+ojZldBxx2h5skUaeNiO3HH8Wu3w7/vw37+zOXUI/t+BPjf0
/fSw7wdx2PkXvD81/2re3uudeKpuvGS5bjN2bf2uXZXEx1GlEUaLcvk4waxF
L3okH82Pp3Baszpx2ovl547oc4f/v4cgf0twwbD/Dxl+/wLDcAGNg35votss
vhfb8bfH+7UKDlzw/MVR8whuR8esBY7tm5pgBNOd5zsUV9H5aAOpsfIRSUP+
Nq3+2eNp/OH5fcH9LK23YfnxYfbi/767pPVG8Anem1H4oI/Ch94UPjhH4UOC
T3Cf2jp3yu2x9W2wcvO0JsvjfDxpb6/iUDA075of0r1b24d/T0DjFNyf0nho
3MP0CMPsp+A9jXuA6HEvwX2B6PEhwU3rkcZN65HoFb4qblLqceOgZv+gbefb
NqzZ/P3YQ+dmXJO2K3rq2jb0WGgfXZs4FBduee/FVueh/9ufE/485KHHDmVG
xvZWPHhdM9Z3Og/jpFITuWZt+NQ4wtLrVBcyqLwqmMoWLVwR1oEy4bOXB7Ma
of3qU/EZa1io4GaiEVXVAf0fxiTGL2NBwpzebcVfOtCH6g9I8rJWVH+YTPXH
dCKXbjeNyDUn7Ygc6CNyQzRX5jfYpGFXk+N45ZoU0BF/c8Rh3wd0iNZLmKVa
AM02weaHTrzFZyPPXrqclAh9QutjWT+T0WrPh7BrvNfgHxkfUmofAWpzeo/O
G1UGg4OSHaw/j+GX6lHhNWpvQPs909wsJBmYB19mqbaUguO73N7A2lyYnONw
3nFzObDfBWse+M7Da8bLt8rZcrF0qveDLWc6MHlGyLV8bhOa19ekm+9uR/W0
6hULhfkQuNulr1W4BZslfqqq/GoBM6Hxyj+s2kF4/szp48fx8dWdG7LHXreB
X/UTcyaLh8Jyu+ZmvG4ByVVwdVZSK/bbPuIdWMCFgaQpJafjW1GDyCXjAIfI
fUWNA6pr2Ze8DUNx1e7EOwVigbhW7dmEuaHxKKR+NtLWTg+8TeepaHsloKvv
ToX7kVGoN6tRcZFwAWx6mz2LG5SCaV88/7rkFcD6Zy9uPXTMRp/eGuXqG6WQ
t/+i2mjxTMxU/+vwI7QDtCOPeQt/b8V5r+zldBV5oBre7x+e0ooKssKS932b
oPk9d3nlynZ08E+rOBqTiZJf/Wv3znkAQq9joz+ekQLGvZ7Zq7fdR+WFlTnp
mVFwbStIuXedBOWUsUtPf/qI6gHP1/2Z54/mvyreynrl47kA65+t4+OweCDm
qvrbDPTfEBDYLhqH5jPM8mMOv4e72wwVOicm4bwju2eVdSXBhdfmIhzhbGwy
n/Nr96Q0EG2c3ji4NxVGv2gcscmnAFPdj185JvwABlhJS5+z3mNE+d6i+OUf
8FqZmbvTBAZOWyQx5r1VNKQzpB7veZKCE2Lsz20xzsNmn6mczvRc/Hb2ul60
dw7qZM+NiNTIwBfNil7fQouw4ZpsWujiTMz9mbj27+oaNNn1Jm4JOxHGX1on
tpdfOGSfjj2OXJMFiUc7m77NzkNtt0CTrH1H4FviCt+bGhUYnvB5nObmCEh6
/vTLl6llOCrbTjzsTQrU/OFY/plTga9PWrmtkK7GxOJlywLqkqEn1q//oVEB
9uvemHDnRSmeHmt5bPLtQtyp7P3XyjoDd9driH4qS8OrgQsOb1haidk/w3WC
L0bg9MO27xv8atF+7ZnfMZUZoLetpnLF+gYUN9TSe+iSDwu61CbGvooHnQMt
E7775IBL+wlW3KEQeFl25m7OySxoHF/f1JYSgz/341atlCTYdmjNo4TXwbhm
zdoF6hYsVBe+cvvbxPcQ89XcLyW0BqeljDBbr5sFoq9zdSZHN2HX0Uolnchk
0KLugdCO3AtNijaR8F2ZBjpdzFP++T6gdHFv2YrH+bDmp2T8qxkWqN3qs/FI
Rimstoww/FAdC1FPG665fC6AD4c3WA5FufDBP2Kp2sxKKMwVLpl9IBunfAyQ
ED1dDOGFC7/udMmDEKNzuhlpTPh9/em6JvcA+HYx21LNvhK2y8/Z/dI/CU45
S3B3HsjAmy1OinsGy1Bmt5cY/3AWnHobdU50TDVG7tWxXcutgObBx18Ke/NR
PN2zrTciH/Lmyru/KgvHI1aH4hkSpXAsanZbelkgzm+L9PAw58DE2ce/GYtk
IDfhacxkQza4iTItduul4BmXyakLZjbB6NmXG3eGnQV9ci8mV/5PH3Ao9Z6l
8fdyMLrnn6659wZK7XjvuCCsGk7YTbKqq3eGVMvefWuesKBnz+24qkfv8M/P
qrVBFmxQt/S4ubX1Aa5f9lw8vrQeLoiofz19sRjd3gRd6nFvgsllup/lDiaj
Ro5/lulPDvjGyRjOMIjEMTc/TzJ83Ag+e6dtlFnti4demb4+e6YGrjYPhDon
J0FL195SY5d6MBJZ/vnW6qEytY44lqxrBLWOQO73UPmn7CX3uBKseWSI2wMa
8Pcvr6qt2m+wavuagNWHKnByW6ntrisPoed8Y835k1UoqjlwSv5kApSOtLeq
TGdj+tlpI+TP6GFEovRsHQ8WfiiXdttqFAYFsySkPA+zMGd64YQDTzvQYf3c
2NldrWBt3d8je7sZj0xpu2Wb3wIXSX0u1Q4OkXpbqh2E+Ue5P1qRAlOyNWaM
8a/Bw+eSl6wLZcMfMd3j6Wdfw/8HxuXNig==
        "], {
         {FaceForm[RGBColor[0, 1, 0]], PolygonBox[CompressedData["
1:eJxNl2m7UFMYhtfOSdGITrNknud5HnNOnZN5FjJd8qGTUuYfwOlUKBJ9NUf+
RGYRZYiE8gcMEcJzW/e+8uG51rvevfZaa7/D8777wDvmXdU3qJTS15SyR8Yp
wf7B3ODIYHrwc7Au+En5iuC94HJ1O4KjXfuLazqz39MZp2Uck3E/zgieDMYF
TwVfBJuC+cEJwYfBicHxPvvIZ0+6nufrg3vcA/344Ijg8GBeMCFYHkwMeoLe
4MvgxeCy4Anv/oT3fz/44H+6ua7FDncHB3gGZz0tJqib6xrWTg4mBSvUY8PH
gzXqePaVd+FOewd7BfcFi/1uvu9l59jqluDT4NbglGBobLm5VHtig87gJfZp
6rP17oHdbgiuD34Lfg9OD3YGZyije/t/z/f3G7jzqZ7XntXnec8E+wSjlV9y
/kDwZjAi+DNYFHztujdci//3DfqDUcHI4Fnf+ybY4jn92oC9hrs3fh0IXg0+
C2b5DrbZGNwb3OSZW9x3pHsTF4f5fp/36NdHj+vrC4OPgwtKjYcrg2+DA4Op
wYPBQ8FzwbDYeWvGla45SP3Brlvpeyt9hnxocEiwKnjF+Sp1a5UnZd+Hld8J
/gp2BZcE04Ifg4uDbcFFwZnBWa7Zpfx3cGfQQS4Hb0UeHKwOzgnODb4P8qhs
CMj7EZkMb+q9sPOcUvOpcZyjDQd8frDfy72XaDNsd3VwTfCdd2eDa10zT99x
Pmdxh0+8w8euZ+11wT9+x9ncPWsvZauMS0vNlTZn8Dk59ENwR3B7sGfwfDBE
IL/mOtYPKzVmlpWaU+zDvq+XGlcbff55qbx0rGte952RTT2Ps+A9OO8o9Zwz
KuNxvrfJ87kTfthDez8qXlD3if7Er3ANXDQ1uLnUGJ+l/0Zn78e02Rzttt19
eHdQnt9Vqt87fAff886P2hJehI/gxi7tin3JnRtLzZ/uUvdhP3KXXCWfTgv+
KJVD3vVd1pDvcA08MrNUjuvV1tiTHO7wW7kr9WFG8GtwVak5dKXfDZe+p4+H
6hu4kzyFm+53f3IW7oavL/O9uc7hGDgJboJH4ZKTSuXXxcpwWZ9zuIF8JP6J
VeL0/FLjeoky9p7nnHsRW68ZE8TGbaXG0zJlYu0+59QtatXYUmsI9YwaAnev
V0+to+YRO8QeNZP4We7aBY7MJ+jD5eon6c812mmFdsJ3o/UftujXNvAi3Ao3
4ruxOWt6U/nqQf2BDM89p8zY8hw8OLmp3AUXrNV2A9qSWCfmB2ujpdoM3xP3
25SJ59XKjMQIMTo+6G3qN7zoN83Uz8wXllrvqCnPKPN91L9+v/Vk/Yzv4VQ4
Dl5dpcx94aEB736efsb3j5Sax+Tu88p8x0g5CHm2fsb3xPGQpvZHK/QDd8em
5M0i74k/uptqd2oaud3Wv72jn9JU7oQ3sekk79yrnR7zPti3p6nn0t/QT9B/
jWlqz0WOUr83ex7+7Woq/8O78CtnjWuqH6kV8OcP7ov9ZzS1DpKL9Hptz0Se
kavvqydeppbduct4gPoPXEcvQk9Cf7dYmfw73mfoyRHyoO3tGDvVr3cdPAnn
UauXKJOXF/nsQuMLjm05ckM153/6Da6D5+F4eqtlyuTrLJ/don/grba3YBym
fqPr4PhjSs1X8ne+9z1afxyjbpp98Bc+51vI803qiJU9m+rHX/Un8USsw3Uz
1X3lWmKbWKc/w68L9TP8DQ+3/RexRVwRZ9SSLd77G7/jJnU3u+5r3yP/4eWt
+u9b/YnuavVblb8rteZTu4vxCz/AHeQUOUbNn2hvQ0zPLjWXqKHEGflG3MEL
9Dfb9dM2/YbuEvXblaln9ETULjiDOfkBp/DvQW0+Sj8gk5v8y/ysnv8UalBb
i3q0/TrX/KJPhuiXdepYQ57tULdD/+Nremhq4PX6AJn++gyfoafvpo7udCRP
/3Dd7+oXqtusfqfzP52PtebiL3xO70f/dJ0+QKZ/PNNn6OkN6afavgou+Md1
u9Q/rO579X87Z0/m8EXrY3xO7acH6NIHyPQF3T5DTx9BP0pPwgjPdLhukD3q
I+rgn3ddy3yw68Y3u32Mz8mBNfoHIA9xXKAMFugr8oU6MNR/JOR+7YyN238n
RubwMXnR5gQjc+ogcT9MG7T/AcQ5dWO4fTTygPbElm1/PcK+d3apdYMcAMjU
FeyADUapH6VNqI/E/WhtwLjd7xxj3elUbvuETuUdyp8bN8RPlzWh27o/Tv9O
tB6Ms/6M1/4zrAk91uV3jIs2pxmZrzVGyPGJjszpGSa7J9yA7dr6M8WYekgd
6+BFOHO+d5/m/d82D1rO67LWUVu71U33u6i1zzp/w9xBXmSMdTS7uWeG8UZt
7VHX6/dSa1c7f8s4R4Zr/gXyhv2m
           "]]}, 
         {FaceForm[RGBColor[1, 0, 0]], PolygonBox[CompressedData["
1:eJxNlttWlEcQhfsPJh4SNDAaHJUwPzCDgIIcxISYqMDiDhAeIRdeoCt5AhQV
4SlIVHwBYhRBCMSZZwFETrnLZfZOf7OYtWavrq6urq5dVf1Ppz//OvHLZyGE
f4UqIStcEBaFVaExCaFNaJT8m5AKdcJ54YUwj633fCG8EpaFR8Lvwm3tfcg+
7/9TuCHdY40XhYkk+rgkTDG/p/FboUH4Lon6emzqsXspnBG+xs88MdyS/aHG
Ofbazz1ifiLclM58f9CoX3gu7IYYz1nhvvCjFu4m0eYxcW+HyMO6KuwzwoxQ
Cyx/JKa3xPhAOCV8KZzD/1ni8PwbzpvBn/cswe37JOYgR67fwyElFq/bj3VX
NP6hcUvoktxM/l+DphB1Rp61gtAiTFOnAvIp4nYup7Hpl3w5xJxNhihPoh9K
YiwP4fmV8JPmJzSepBb2Ncf8DmueP8O2WuMC82r6yP10XPgc2X3l3B+jbu4j
91MnPeocrOLPfvbJl/O2Sk2ekuMFzjktvEO/wfmef6DGVZxln/vkZZb4zGOQ
fh2iDnXUyjlvJO/byK/JfYF8uwaP0C/Dy1x3ka1bCfFOLsLD8zW4uM9qiHcJ
DktwK/NaQOc8niDmV3BYxpd9+/6cx7/jH5Ndt9CTRJu/hDfEuxmO+moTfhvk
7B095H3Xk7jPvgckFzWWhPUQ74lj971p19oenM4Q7+kKPi+Rvb5HjRY4yzx2
4LKMvEvOVio4LcJ1hTy+oCfew6slieO1JMZnPkV4r8FhDVvvcd0H+DblNGaE
2iR+L1fx9ynE/twh/j18bpAD58vfA/dtO3sL9LLXajQewNfzffwUK+L7O8Q9
TUJeyPIdcF22GF0z12KbudevEl+Gfd7fjI3XR/jme+7v3wz5L9ftI/NP8Jsl
7ztw9jf4nxDveC35qeF7uovNMeTn9MBbzimSK3M7gLf5P0A+JDcfyOMsZw1z
Rw8qzvfaHfI4nBzpD5mXiG8dn+vM66lnCX0GH9bnWBtG7xw0sSfl3rQmMf8p
+hJ7s+xPqXcDuc9i14qcx7dtr2Kb4iet2FdgrUQ/l3u5GZtr2DWgG+RODnBG
F2fmWb8MutAV6a8So2vSht833I8GYvC54/gfpJfcR/5f6IBHDn4+c5S+b6vw
6/kVvgft6O8juzdusm7dEzh73oHvUc7xvJNauA496DupVyc2vUnsxbKuGW5l
Xi3MfSe6yI39tZKjLe5WD2d343da+j70fjP4PTFJHsY412Mf8iZ+7G8a2fe2
H5uyP/u4Cw/vK7+lbjD3e8fvHr+T/L80xdzvCP9HW5ci50L8H/cZLfjv5wwN
/8dtuQrZ76Zz1MD5r0P2G8ZvGr9jMtRrhrnfA/7v9N2tRvb7wG8MvwlOchdv
YWPOt+GbD0f/k77Dc9zd4+Hof8zvRffyPHzdd1PI5jhETcep3Qg69+Q4svW+
a77PB3wzhukT171y3wj2Weqdo+aj9HQ3de2gbmP0gGvUSx/0MfbSZ+PEOESc
5nAJbhe5qxPw+g9BfSxb
           "]]}}]}], {192., -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJzcfPk/VVH3v1QSKUmheUIpUaaiWimVikREphIpUVQUyhCaqcwalKgQyjyz
yDy71zzfeXJdpZHC9z5P6nm9+vwH3/3Lea1z7z37vffaa633e59z7qpTzkan
BQUEBGbPFBD4z5Fz2+CBSBgDWEEJp1zXxsCxHN+zr/UZULc745nl7WJojRof
XmxKhzTi5NlzUo1wk6k2u7ScCt+cul4UzmgHjd5Qp9g4MtTviJHVN+uF9pfm
AovF+kGwgrdqySAJIvLGd56Y2wn7Fi8nnlegwlvLI/t+PiLAmlnLLRy7acD7
ZHqvfKgCdu6IyBH+QocyVt8cD+0MyBm88rrEhwHm1rtmb6h9jDc+re7Y/5AB
1b9x4R+cU7jwD86vv3HhH5xlv3Gh+hTOyfL/4sL+KZw6v3FhzBTOVb9xYeYU
zu2/ceGMkd84p3Dh5ymcL7V87J/HMDBkq2czyqVtn8KFFVM4p3Dh+ymcd37j
wqn5w22/cWHlFE5WoJo5PaMPJ9Z4vGPHkv7gwj84p3DhH5wff88f/sFZ8xsX
/sEZ9laTdXlvZuEfnB+m/PoHZ8qUX//gFDj/26+3pnA2T/lVbQqn394j6p1y
ZNB+IROzaqgfD075NXAK57opv0ZM4dw15dfKKZx//PpiCucugf+0j//nWFjw
nzb413a/+p/G/Gur/LdR/9r9ff9tf+1jJv9pbX/tqMf/aTV/bfH5/2lp/9rw
z/f/2sa/r/fX7v3d319b9Teev/YU3r/21Hj+2lNH+Of49/w/44d/xg//jB/+
GT/8M374Z/zwz/jhn/HDP+OHf8YP/4wf/hk//DN++Gf8/57//9bP/7/7USru
oIu+XAJecBq8JnWFjcbJMxMZ996imIvJQ01bKq7ekzf7xU02rj9kWHJX6A3E
976sbPBnw74bKtfnf4/Fs0sUhfUm4kBjebxVhh8bXpqlfYRwKnzZpXPMKuEy
Kt4JbvA6SMWCAfv6pL53sCjC8byk4hO445MRYPmYCvXKTol073I8y5OyDxBg
o0qIT1KeFhtr64oNiKFlIBFt1lKqyQauzj23t0ZlaD3wWVvSqQyUcYlgyjY2
hNVr9TLusVHr6S5Lucp2TFz8qWQ2lYapBmGSsteoeE9/4l3ZvG58v1HHKEmD
jeotNx8xCSx0scy0dUmngENV5I1pQMaPwwu61p5gg+mJE4rEhmrMIoxdWLCc
DW6r65IWuVWDcfRhGUcZNk6c5yqbBJCgbLIrKq+HhdMyKvo2trHA44JWf34k
BTuubUnzyKTAhZ2ren40syA5bMm0Kv513naLSzr1VsOBi5PJt23YcGKFybIF
O8mwgG44p7W0Epv6DCmaAxSs0Qh0mv2jAiqy/JzadpOREpjswNDpgzXkp3cv
EltR6XRHndEXEuwR1OwMFKzFLieb/K1BJKicLlF2PL4SjGarFA/Fk/Dym61W
6q/KcX1Xz+0B6zY884F06Mqpdoj1mTnHk0XBFSDxc/NENTg69pukXSvHQI0Q
XjmVBOVxXKqQdiuork2oESF1g91M8tppZ2vgYqzetLR3FJC/xsiNDSGgTcPb
c2IfmLgg11XooCHi/AGnDzducnG2/ur0H9dYGMqYzyxYSoCDBx0IjS+5OF74
aOPT2CIY1Tt6S/8aC56n6Lmvm0vARebKvgEvudCqekqwcGcR9nS8Z6dLE2Dl
p88je91ZwLkVJznfoQhub+1TqInhwsKb6VKDbxj46ZqUbK9XKza80VS2GGTh
Zu8GbWtSHfokzGdP8ujodF1lzS6JPnxr0CcStI2ClicvbhRZT8bJ7T/iV2zr
wC+Gz/pzf9IxQvpWQ+A+Om6c/izmyUISpBP3Cvgv7sfRC/Q4040MCNYsPKRo
0AbeR34GRTmxUNy3cM3Hi31wl5PypEKFgYKKmhb1LnR4kj9CslYgoaGFox1X
mgQqkppqOnvpcPlQns7i6yz4pFb/g3qvDV5K6AtRlBhw6JpNVZhUP5xnLCil
V7bhdbLyc2n7fjxby/mlpdgMV0Jdhk8fouBt0dVJhPMkeBgpQI371ImnjyT6
cA9QwH5fxIktdc3gseBYxdkLZCxn1LhMm0VAa45AurphD/pzg2j7RnrgsWfx
F7e2ZpT/+P5jjw8Zgr9sfGUZ2Alvxy2L988gAXW0+6mUJQHd59tpmXwfxP5I
xUUTIkzckORw18qsE1aoyM8YPMpFg7pEtzMfG8HL0OlkriQTHt6M5HEsO3Hi
Zt2dLcZcOAedSSbtjXibztT8yP+dQnjmzVuzmbCzrHuaELURqDNjXicZceGB
8LyYQ7UDuIw2EdI+nY6LTyasTFpIwZG4gZtis6jgryRk2hzUhgGbPxmt4a8T
/x3Fyp+tKVBJ33pofyoV7Y+JWdbN5/NCW+fhdxIUCOJpkeUD+Pxw+jzt11o9
eLH5xo6AeXWw8dD6nF+JbXiu0rucEtENl06IdW0T68MHjw7GcFd0g72+S9rH
jAbY78k8VNLWgtc1hKWo7xux1IeqH64zgEqDXo7EgRYgNI9ffNvThvMf+kUl
ugzAC7k1eq92NuIvV7GmNbK9kKK4zs/qdh9gmLhQ5IJuGFh/QLEkawCFpPtN
RVe2Y/Xg3Xshc3pxY0PUcXZqE3YnTqP2TXbg+FK7b95fi5DhIzCBkp2YwHBp
HjFox4duWtHD6+tQP+GLP2FDBw7qct1V55dg0Y6SnqPxTaDGNQrezv/cZ4la
i/GnVlgb1LjgxoF2/CnPdE2tLYX+swW+zLkFuCWkUn4rvRN4mw52nCxvxmB7
K4eHn2rhYFRozYGdZVj55IaSflYueG516Dimx8bUGeM797xnY8qwm/a+LDaO
btQsqzRhg1deug6Pn+/Pjd8tyTrDxr0zbjQLm7JBJuTz6cZMNiRutmV9muYG
aV9oF9VSuGjdHf/uxLcSyB0513AsmouTIrKE1Etp8JTn2mPHry+e1OOehllc
jG9XujE41x8HXzrShN5wUaGjUPvEx1IUXHqlYZsbG49Mc/NcuyADbbLcrOOz
uPD6+221byUBUFq7ft/8WC7EnH+0xcGsFMSvcxznXGPDdJlls0ofZIDtw8Yr
esL+uOfEgNT3TC4slriz7tL+UgTCyzpffp5RpPqZq8tk4MMV+kfOebBB0//J
nIeVXNx0+PachV1dqG+YGH46kovztbP2fCOR8LW3a39fMhe11NcTmc8J2Opt
cqaSScIzO5MPZPHjJaYj0qI6qQsPLP2qKLpoCHcqntqftp2LnqYzUiUmSWAk
3jP/zEMSDo5H31Ly4ULgGqXOJ2PNuFjQw+2pNxfG+4hBNMsudNEzrV0fwgUy
TfT9595mGF6/9w3XlYuy5T/v1ezsgqBB0okVLlzMOu6w530NCZo2tG8k/RpE
WydTvaLtXDCOKCLGfychwWxwega/X+1ewsJl/PMh81OMpPn9Xq4/l0P41Qx5
NxRrKPx+NF0rv3tadgH7tJEk+HJB5IL4g+8PSJAtoWOSntUGneI6F8KJbSg2
vpBSxyTAwh8RSjnMOtzHNsxfws/rfh61ou1i/RjvnZJES6WgzapLR7g3iLC0
9P1R3o4u0MwYbiGVtEK+Q0WnhQ4RJuUUTB8lEWC02+x+ZNgAJPU81NmcQIR1
3/37KeqdaGnHhXjxBtghOaAvf/wF1j07Ub35CD/vjUkVpN54DZ9Gop9UjnZC
38IHGcdeF8CGPVkcgSsk2HKlhze4qh7cu+cdIFsOQEDdIR3utiHcIhChcOoy
G6e5jRAuP+WieKpc8KVsLkpanRzys2bjpZMpXwgXhvDHsTUj45V0lDbUKK17
zEV27cfnF34MYttilePmAXQ0IYUdcHRg4+r5q4bMlg8Bo29zQ/F7Lq4m6Smp
RHBhUtLl3rnjQzixc6eJHZ8/1K///nHhYv56MtlrcDGYDqc9rOJ6FOjI7ln4
ba/ZIIxeEsm+aceGvevHIxK3D6HqOe/07W+4sMlF5+7LF1xk1elU3zw4BJyU
U3UkGzaGnWZOhsziguqpBanZt+i4nzerzvEaHTYUfHq9ZWQQhxd9uvWZj8v7
ZcyLLQ5syFd5+iuMjytOdlft4/f8uNn+YAuDj6v2iedT9eNDsIqk32sbQgfL
o7g5QYYLr2KEPxYfH4QHLiUmRxXoIKlsN333bRJOePufFX3BwhLnh/cyN9GQ
lGEvECrHr+uTsvNWhQ6iVmjaZ4OMTohp1V+ey+dtbd4+e7nB/TCiesGMKNKH
51/MzxvsYUPczWcVJTd7wc3urfuOJ2y8JnjzjGnEILiobVoeltyJX/14F47O
YUMMUXzn4jv9mKi2ept5Ol/Hv8zwEQ4ZhJlbDk9bFtYPX5T2uMdPsiBN19Ix
qo8NTd9uJ62a3QdSGvOuP3YIxsIOtozweSLst9PM2CZ2Dz8/77mSoFIBL+QT
7CsPFINJ4bzUDRLN0Div7uTPJiZeWP9gTwPSUdZvKTwjs/CUuu7KKGUKLhmL
/VIVwECtgYuXyzyZ8KNUwap0Ex2IehaRJXuZWPmldPMJLyb4jta8I/kzIGFl
vMYuzSzwOdFwkuPyDg9H+wV/3MeCb+ymr7Lv6Fjl9P2IpwwDNlx/6W7MouJx
D+bye1QyLFmUst9WgYkJYYsPBkqG4R1l7/YN1VHgIvGeaJdHgR3xL/yy7Ni4
Z29n9oRUOdaIqKWdDCpB59Tdp/a3ItzXGW3Jlc2Edu0XHKX4YjRwsapf8D0a
PZbbNx4VbMIvg5uHfkk/x9YuYdUW3TjUJYlEH1qZj7WXDM68dsvAztmKueOK
Tejd6Geyyj4VktoOPLkdVoVFehVaaxMIeO+GoE3zmhz4vHTu9K8nm7GZdO9o
5MYy5JjROQ3y6SAmsUE7dUEbNsqd++DlVQmzTzm7StiUYs+Rz7ei7DqQ+2Xv
6oxTL+Gbbfqzr0l9eIugSMiQKAWHggvyhecGUNtTKOCSeSS+Zwy1xD1oAKvn
F5Z1NpfDtssv7hj/JIC185qInpx4+JxNuzq/qw16vBzGptuVQ8hdvVzNxbV4
U+CsUod5PVounHP0hQf/fB4nM7O0Ebd9Jl/7KUoE0R1Bspdcs7BA4bPOhkVd
8Opm5w2/kFI8c8uMfnV5D8A7IwWUygD7vG5Lb58uMK3ZedTiQhMWryrUtKsb
AMl9vtTUPQkYrbztm8VANzwge7lHJJVD0Hffz10lxTgSkTLDJYOG656XHXBe
lw1axIUeFz9Qser5dG/yeT6PKf+mL+OYh49Gbz2QG6ZC88Ld4CyaD0Wbs+9l
x1DRlxwqlP4hE8WjMw/uTaGh/6wtem4bSmD0wbVU7uYcbBWXepVEpMLsWMMH
6nze3CjsPEHvo0LFZfrFK8/I/Pk5IGCi24oiK09dLusmgvCmq2HuBmSI5faJ
DRbWo39ttEhz+wDy6ZgaQb0Iy/UWtbiuGMB008vPoD4WurPvWgtN9iPHL4Jb
I8hBUdXTlyaj+nCtyLkriZurYN6bOzz1uV3QcU1UU82PhZlsWaowhQ5tFI0S
vWo6ulccKt1zngaGt+bJeBlREbc0U7IHGcA4zeAq0+hwUObysdM3WLB9vVer
8kUa2LkELPlVSQehidPKr4cZ8GH0+xZlQyrIa72bke1dBrNH5n8WTujBq6vq
vVYqVoNryyOjC40x2LW+olx5vAN0wlJUgufEYM+KioqjG8nwPdzQv/vuO7g/
2bNzoDwFVcZsKYsud6K6rIy0QSUBiTLzjSN+kPHecsnZzS8Ra1Pz1njvZ+Ds
jXMrg0oqkLV6QUaMCRMd62ZPVNoVobnHXeLyPCYu/6+AH/q73yAgrPHF2YyL
ZY8VXq+7xsMTxas3JC3nYYbUiNu4LA+3d7Y559QN4sPUrohKe76+1HkSu7iP
izFDRt5rKBycsLPvaJYdxNzJuRJxxwaRWKVxXbnoJZSLVCSqHuXhPPHMjhu7
nqOi9R5D7mEeCky1P/1fNJc2c+LXm8aFwmdiZ7JQ72HU5916PHxq8XhvvgcD
d69O83PnX+fpcZns0lAWnjXxd/h2mINfPc/2yN3kYS3KZup/4KD1ejmjXuEh
nFGkYjZHk4Q/jE8Hf6zpx7npu8z3U3tx++LPYzeq+zBuowHh2O4BtAnaHdud
xveHwjHHUj8miu+e5+5eTMI5Hmv3usby60DASdUGjz4sF/U5c/YCGz8yWDcL
15PwQqB4XHpdC+Lht3OWa6bhxbjl7S/mt+Lmaemnxros0O7KVc1VKR2o47D9
xx1qDPZvV53jkkIA/21fr16MoqDAyqYV4uVNEJ45N+jZKiqecCrM0r1EhLcL
PF9Ty2hYNeXH1N9+hTWnHk2eDGTilSWSB7X2VoDAcuqFtEYmFug7rB9+WwgJ
dulNApIMVK91X/BxGhEPF4pczKhioIHBnM2bCurRJ773IO8REz24S9sDlxHR
6FDR+gfFXPyIQas3d7dh+ox0kbVqg5jD67sxXaITP7TrqdjPGsRiG072HOlW
zI9fdfq4KQ+vDsutOb4hDhUjJJYJ8O3Guo9fd8U8/buP9MevhUsM3/nw/WUz
M+FZtGUjblGZPbuPzzt87Tony+NqsVCvrJRmxEOPL+ze220VuFya4kAnMPG2
iJ7Ic982jLi4IurRaTaWxvfFmdcTsaRHhM7RpOFAxo7A2FdE7Nl4JYTqQUH1
eTvXXRdrwVljF40H8yi4QfJC1pJ5zSiZqXypV3IQpWNMBaxa3+CzkZ9mbQ/Z
+Dpm3f6jF+9g6OYZ2fcWDWK6yxqwEwwF322+T02t6Wj9I0hox8U2rP89/3Bw
Kq7OKu44ZXKfCYKvI+9z11ZgKldi0qOBCc3eW9U5vwowUdh3m888Ci66nzfA
PjOA14Q2WvVnkjA5vOdH2koySql7Bp+a7MIjW8qYxw73ovljebby8m60SVRM
mbWMhP/dDptP/huPr4Q/DWxvG0AfnYN5P/bwcMHMm83GGhTcszSgWnUdD2lX
jOjUsW7If1+9+4whCcJy4y1kFbvhYZqWyLYPfdBqPca1/NYHO3lPL7pv6oc4
Fwv3O2sGIGjoWaXIPb7eOt4b2jpGAidSC3g8bMd9LIrKfTsS5M8oWVa9sBUv
xO5+Mz+0AQ+T3tMj+P05fdeWrh8ux2PfFr6xWM/DUvE785XEqrE6JtFwvQUX
L7JfPfEJS8FBgneqcjxfH4ns2bo5LBevwM2few/ycIw9k9OxuBqCi0mpUmJU
1D/odYNo1ABmTRM6J0fJGHH817UEtzxYKb5Gu2aMg6lNaVFD1Dioeb/qgsPc
QXR47K1yzzMNhJSJ5iN8/TXx4VdjAeUDhmYdjrUt5KDAvBrf+/dq8fETg59R
+hx8fXO1iGxDNwSI2pDrvasg5Xt0RI9RLxyPT23wI5TDzpOWjo3qfZB5Y33T
S5s6qD4vtgfi0xDnHrfxYDGRsCxQLcg/CMdtT2cZCbKwXeoFyZPPLz6m1V49
HcVAzwme9+FDrbgpICtZ+DgF084rvSKZtKBzs8ogTYiMvxhfO7M0O/DYj27y
iB4ZJ5aEym53Y6DevfOLnFw6MKU0b1bjdRoyHeNtLIidWPNcPXmvARWrc4oP
3PTuRYL8t+O6FRR8fqMw6tbeLtxRTzqzb1sDKp2rU1KhU7Fuk7XQUGwjSihW
zb9rSkEO0ztxbSEBp8u8c81SpuKHzfv1Ximl4se3atlf9OlYJNkzGLklAOU8
Tt54uYCOKt8DBqU35WOw3cJlo2ZshNeZai/HSlBZT/TzYVUa2sjI35h3pQrv
mW49e+YZDQ/3B+/odC7FodaX/YOz6agTbnZpPbkVX4XePbp9AQ13NW2s28jt
wPKZJ3T7Smg4ory8RiO7FXu3mCelX6bjXGeh+SXd9Ui+GrHvHT/OzCnEuSX7
69Fww9svIwMM9L0271K2UD2K9vX4LI5gobqFRtvMNd0YVKy5oaKCjhm/Tl3b
NqMHow0FPRuyqPgl1HDD2tYenEdQrbdaOABLPLfttbEewK7PB9/NNSeBX+T4
PFjdj463Ht6q8OiFzSThA22V3djzc/J1/CcyemRHqypX9WJ/JlPnUiy/7uhq
PDYM6cFn33T2Wu/n4dbXCvG9Twvhyg4vwzNJFCgfbtmz+nk5PA36+vJeKhnG
VutHVqwqA0Xji+t+HaJCWv4L1UbpAlTOmrElW5mO+zYNnRv/lI/9ugGMfgsa
Bkzl8an6DMsujH7pVa2AnPO2S+zuMUF38anRcvVCKMy5fKu3ngkTWW5nwox5
GGKzwpVelwNX1mo2j2RycUdH2+NFoUlw/p53vu5dLuZ82pLUVVIJoq8O3c8d
4uCWoo37wx+XgvOZ4PiYVA4GVT/9Qf9VDTlrZ5i/eB2LV34VeN44xoM1iwwb
xTyewvTLBmMP+PY/9RjujwZfIU4MYTszdaLGpwcsFX1jxtdyMYxRWNXY3gfV
P0xSb0zj4UW7X3K72gfgtUZDhccPJn7ICLjo9S0V9A4QRIaFWEhc/sQ4wvIO
/Imbid9xBOcUXqhOS6Tgw1tjruH9VfjssePNWdspGLt5V/7lS4i7OjcYRcyg
YfAbwzWXFpVhgdiRoPMqLFyx1lI4idsDgT3Tbkh9ZqN2euDDVc69wHIaPUPg
6zOm/wL36gOd0LbBROZBGhcvl1pfphWlo7STlkr5Dw6u9Pv+xu9zAY4XnCRe
96HDVaZysKY0gmDBzcCYjXQIEtdqK3RMBfML9GUdTxgQKb1x2XXnLNjz8dND
vE0G7XfRP+YYEUBp322zC0IkWOpZ1am7sQkYlv5uuz+RIdk+q2EfuRGe/Pd+
Bvvv/Y5GEQ2NAmMOxp16UPnjFA/ifV6y1/L5ZmrR/Ul7ZR4Mfn83JOLGQ7tD
JYtdTLkw/c589W3X+XkzteiWvj4HmvZ7k2ZNcvHY1wWXBD5woKJ82CF4Hx3v
nexaXrM6DVRHgv0fGdKw99alxTKcQnjDmUF/y9fjbi2KMChdCKNPfwy/NqXA
s7P2M+1bM+HoZ5VTM5MpIPKN9oRUVQp3dfQViXQSRM2vT9Vdmv+3nk/xRFD8
uXeSu4Zfz3+K4rRlPCCvlTxy1ZyNKw14i8pfDUIAtWFfXi8HPY+UTBckcuHG
4itf7Q8NovKLtXpKywaBERYzLuJKQF+Kse66tYy/dW6q7sH8iwsXOkrzcO+x
txaVqyjQ6TVK8rvXDKJZnrMVbpCR3r30l59AHZSoZD+gbCLhlviCa+KubNQ3
N3law82FnxFpTgJyNBgFmbVD+8pBcMb4HdovChhzzw82SNdAHWvVu+IEGkZb
KjfQdlRD4SwxqpwkDZOydb0HLBohYm4/6X4EHU99BudqzQbImx87fQWfp5V3
up25MdIMq0asC8ZsqKi1Z1ymTIMIRufl2rgSNKxLszjV86IHHgpLrktZTEHz
vUX+kbI94HLfacXBdgrO7xsu0hAdgMf2Xs93KTJwa/6lkIzKHthDch1cLEHH
sldlqnpnO6Fz6S1WtAEJc5PXSxvndIHH7s+tzGu9SHs6WkOT64IikwsxGlqJ
oF/3MW2rDB1WjW1dN8x8BjeHYydu3GOA//ld5PUD9nhp2mazqsV02FyWml/l
2oyB/Z4SB7tY8NZm9bKmOgJKEjKuHk5iQO8hY7XbC+pR/YX7p5z9TPBpbdsr
d4tfb3a1nI+YxYGIenMHNzUyGo2fPOpQxAHRhKw0q+sUtJJh+ezYzYX0g6SD
1bPoKJiqKHp+531oHatQlAghY/QugxjSNxI0h6zjUX2puI2qtZyUQIZMbuNY
0jMG2gZkTU+8TYDgW4veMuSZaFrF3VdNr4NnU3Wu6XfdA1u3DjGnW12YiF/C
tIdpkP3cxcp4eR9aaU77vP8VFW6mH1V9L9SC99VaOOWpHJhx6Oz2XJ02XPGq
atGsy1xoS6s723iyA+/Iyy3Y3cmB4IyVM6+MsjCnv06bWVoLTb/OF686w9eD
YxdUhqKbgSlH1Lj8oRKH9MOEvBh0qCqwUxaTLMfKhEhSehg/P99dWBo+g44L
XMkhqy69wog8DSn/OwycKbE/MkEuHVvWmilVO9JxfuWdT3qfClDkHLHjyQ8W
9Adk162JqUVx0XXJaWc4oOtxOC7hQTMWyDzM2svHnTKc9cWWUI1Xb2mwgiwq
UN2gWdjgAA86k3M2MjsacK3ugTzZ/TxYsWmDRr5HDZLmGmcoPuCCxX0HsbaC
N+jgZbWLKjkIgcOUmT97g/FRygK2eBAbiCbrGO+sgmHUOSGbunAQnprOGDnz
fgDdTOo1rHfzYHXvguPxBn04ZnN9xctkLjg+UHv43bUHxeMXxWjr8kBD5qxv
5Px2VBblKXtR6ZBXfrLnUW4Xlm5YWbRyGRPWfRM/532VDoI4PTMwuh631c7+
IszPl+dWxMiOuBOw6kjwSVjDhOONbmP2+XVYobQslraRhr/idEPWz/gAai+i
XiqI0LH7lev9kcUfQOeL57kkQifOv2yce8qkD+oXWYtd/NyJmaz6nI25JOCY
VbyzSiagyFfJqBwfNorfjrFXE34DV3ST9wrw4yhGZUGL3Zc08C2mjp4NZqBu
/tB4sV4hBC0tMrVxp6PF6Jn7rfw6p+Ux1DnWEgssc+/jTL799eXyWbDw6d88
/acOuq3+rJKhUQG6rUrEFft4GLw/4ZF/dgNEL+0Q1uDz8dw1uz/3b6+B83dU
0w/w67CEW3KulgAJjcd2T9rbNOOqq8uyS/f346PPxUmqr2pQQiDD0wzIaL3Q
Jbiupx6pv9cbTK035JpYnX6YXwZX65JyJ0KYKJdJKfPsroO9KYx8cx0mvsqQ
f1JSWAIt93alvnKlYHDZ1ZgfAWVwY3MaGG+modd9jyzTogHgJYmsOfuTiXoi
7ir6h3vhVdQz2GHAwvq+tR7tv/qB/sUs/LAyG23dyaK7JUnYN0c7mGGci7tW
SujtrSGjwpk9uUp33qJqxp3rJTZNsIh1eDx2BxHf2PQttTxSC0pz3ra5tjbg
e1YsOUy5CirMe5ffnU7Ex8qHo3lrO2BOhp3YnTwOvj3eK/+8lwh3235t2PyS
g7vUt+Tvk20DaTHZPAVbLmKHMnH3YxIs+OEv/v1ID9r9aiRZ5fTDtupri7VP
dOPaJaZzvyf2g8L5hTH2m/qxmTppTjbsgtedQleufaJhtfrIbLPJXohWrg/0
aKTiq9/5A+qneLNm/Sn5uXU9IPFdu09jgITv81fJ7PEbgOXq3EuvWCQM3e9c
8+hIM2TM0NY4TWRhlY7aWGgcARbO5ZKUkxk451uwpzWxDfq2azdNp9Oxdj1N
PsCVAh6f3NQJ03uRmwe91k/IwD7w+TvpZycuGlyQPdlLhQM26g2LMqrw9fuv
ZmetqbC+9CRtvnoTBuw/fERMhAq0Ayz4+nQAB3ojNz9Qp4HvEyNm1+cefCiQ
P5mygg5fi+TnuHry9UBE0ZEzwICltz3XOXb0oJl1nX1nMQXEjryMCaQRUW2l
3sd3vmTw6LfZ+nGUgAcKGp9/zCODCiMupn8fGRnvS77a1FIh6p2Nan4rGfH+
mXdmlzJhclhVfHcCFfQ0FtjJ/MwFQcnSdcNfaeC+XLgrYgsTali21qpqfH32
uJW10Jof54dm+Pb7kNHOeuv2pwV0WLp4bx45jIINIqqltYdowD13cFRDsxQz
TrQ1xYVToGReu7ZoWQnOXbdp0wMDNmi8+fnocfMgLhV5uMSmmQPrvNVbPalc
3Lbum3HVtkFQzDxyu1Txf8+d/OED5hX3lxmK8YD7S9dUmEOGkPEQo1Z+3lro
OEGb+34AhKLOxgxo8yBX5a7dtLUt0PNzy8QZfp6M042Niu1t+Pvcx+/nTAh/
7T/7Xn7zrde2XuDBmQ2J99zN+XpyMnb61VU8cLW5kp++gofUpWWPjrrxYGk7
izFswMFbGlULJIe5sNMxsWJmDQdPGxLKoq8y4HBkWq29OQ+kdhanqH1mgiXt
nlNvFxecXjxo4j1gQaBUjMFZOx6INSbFinpQQNqoXnapBAl2WTFltyVSwcZp
4P7+JX0g5NN8PM6FBuGDKnN0E0nwz3ygst8O7lxBHoSrRe0qbB7AE6s4WwQX
8mDahw/Jm5ZR0OsjY4w4zoTKbVatXNdE8Du29BWdxATtqydmJM8uAD2L2o7e
UTZsv2KnqXG2F0OPBXiun8WGtBON83brdOL3bcnzhrRZECEJMczhHhy8mBsa
e4cBeookqnJ0OL61PVdOX0WH6OOkq96i9+HTxZeLZk7SoHjk5eG8A3H4/vtz
dt0lNphuSRQTlMrFYe5ocAd/PqzvqV8K0k/B3jWv9npMZ8EpjZXEzbnmuGKV
2TSvs1QgzNUTZt9OQbLiwjz1RhqoydzQV7+TjZ3LW7cJGZPgnWQcvS2Phk/U
ixrVpEiQ2yNu8iGbgtUtjj53jXlgwbqvIRKTgyqj7pTUTC48KR+am/D07V9e
+YdnXnVe068mSYGzlB8BrDk8PPX6/f7MDwOgk/ZhadpqHj7LPxo0xMc7TBY1
auTrhkfFD6jXLjOg3cg365kuX4cFGaysD2RB6tm+H0uO8tDBIUZl/hAHVlY1
FVrpl6KGrHrI7Ltc6NU5URb9tBLlvmt7tE8OwcLpK+w/ePJ15R3qtHvruDBm
KbbEvbEPy2bUVroJDEJCf5Pat7R8GL7WP+Mjv05v3ESYf/1cPGiJ9i5MSudC
v5F0Qppv+h898Xc8hhX5e7YZcaBRwcUvypmHQn0JxYwKLkQsodXEjzDR2V65
5ZMFD0yUfCvSglgYKTR4Q8uIB6LJn7aEuDGwPyUw64ccD3q3CvrE2jJgBmO6
dB9fh7Dcv9BHb7DAuTvOftyfC7dEF67Y9p0JvNieSYv891A18zVL+ScZa99d
ry2bVgRediNxcQ9JKCrx/ku2Sia2b0t38AxlQJTW7HRqXxGenQGr1d3pYCDw
IevArGRMlmMql62kg9uI1sKyXQ3woNjYKvMKHWLzBJwOaVaDyDqpTd2GNHAc
iqvJ3toIxgV3zV5mUUHoR6/LwfRaWL11k8/S7yyYyYx6aNpbB/WfY08MrWJC
pnWOuNLJXPDcH6r/6yIbXDFQa3vyO7hjuIzTM8KEO7rt9jq8UnjjN+rjWkAD
N9pQ/HVdIsgSf1JmzOTnyZkOxx0Dm0BY7EJKlwQF3lJOdqxdTQHJX2V28tI8
+Gc9gcZPpZ+X+bp3k6LSupXTeFC28nz0D8kBID1KleptpQBPajr7UmwPeP1o
81aSoIHRlC4I/q0TYMjd+m7LrhL0kuJG2l+nwLcrdRoyTmW4dbVE9O6VNJjb
klrcPFGF9vPebq+to4Bz3q/mGTU9cJDOu35wIwMsE7olShw6IaRQ4L7xfDoI
3B+5qvPsMnAo1JdLBFlwTlXQa8HsJPBrCrQX4cfFRefjM81zc4C25cq7Dfy4
ke9Q6qqIaIYqjb3flU5zwN3d+d1hejXoqZJUC95xoPaT7IvwK/n45ILbpdBJ
Djw9oGU2dDgduz/qnPiVxoVtLdczZ9Vx0Vr3jd6j8j48Ln1tbbAFD2+J1u40
zetB9ddHHY4c4+HjI48sSF8H8PWNmye0kirh/oe4Frk7XBC8tc3A4lwpbLth
FTkxyIGZzxgb3Tr6gOZ3K0dvLRfyFNyP5fv0QIxj4sMzE0N/1/0fXW376Ckj
7zwPIy+HZsibc3DBO007E77u/yV4eu/SSRac/XRU14PXA0971HJUtrCAF/Sw
acy5F+a1mq8RGGH/c70utHQtt91uxUMpOYshz4QOJOjEhoIwGVYOHzH1DiKD
rHLQofXvyfAEQt/M9qGCx3PbiVinepw3+62EhzkZEmelLv4l2IwLzhgqVHdR
gC/EfxCsO2G6d8tYpDEZluWxttjlk2DR12VjVxUHQJkbeXKinQTfFyQvehLR
84cH/tEhULh8I9E1nAkjz0edTiqUwzwRaQNZXSbc8Ht+fdGiemDJfTBq5+u6
zYn1R5PcmiEykPOuhK/rIlZWnn9eQQCXkENfgvk6YmcXe8TKpgLC2ueUv+Lr
Bu/IA9O0/WuA+85Xf4lqHPQ1v+Gxx5jYaDF550N4LlwV8V9B6WfigdFb/hfX
tKDSXNGGMO0/65/wt05nxhjK9/HzhGP+nDi3aX1wqq5p7cR9NiR12H1Lzh0A
2h4fAZX1LNCQL2Bq+JNAY7ram44HbBjveOp7+VQYnP/Mrf+yaBAMRMcthwcf
4nGvNzE7ujhQuGDmsNbJDqi745bhnsaBub+2rZkh3AIXXnpywvm6TiDlpU6V
Thvoz3o/K8GUC7e/WG/+6soDK7/tSoH6HJA2vOe+8joPxjalvvH7wIHS/Ki+
tgku6Ou+Eij9SANv94BvH/27oHFKZ8ZM8UaT1g+rlyIHnpdc2FSmSoYOpeR+
rz1cuOu8TIVyjQJHrn7RK5vNgQVWKuTjNykg1EwyX+hNxiAr/ZortykoYuAi
LnmrHy+Y7SvXdKBgIe/Lxl22PPgWZ90UY8z5mzf+5PF/9vsh7tuXqj0cMpYd
607JmsP7w1P+/s7Au/r50mU8uNwu00RZw4Pa5+JL8haRcIFjcVnsGf56Kx3w
V0wiYXEiYe/BczR4O1oq88ich9V3r41o83nKwucp91Z3c9Fvx42WO/x8KDin
6F6QHQ/XWZSaRvJ5SvGd94zk14NAcLEWXG3OhifyOZeDiFyolizyvNnLgY7j
8X39ywbByXtm+NpDgzAyukONYMvAeZJ96zz4dYRG6JC7/Z2/bu4UrJfn1409
9CXF4ykdaHjCOLOSr5/+xNmfuFu7WbhIcTIeM8SKJHR/MuGas3Bz0NV8fFv4
JuNBPz+fL1VMIMTQIOjMp+Zdj4kQna3D86TRYWXeVxWX2e1g/iDUKzWNAk7v
3er11hFhM3v4oJsQFSgbeKuKdjRDtM5zqS0RLLwluMJ6yIeHNHiRonKDgSJV
rnZbr/CwdK7PqPQwX2etUP95/icX6W6X3S5ItoDouVeHRbfy8B/eiCnP3Uxv
efvCN1ER30932egtS0pr3xKFecNWxeGzB7Hty54l5+53QEUHRcBzdi1EPXib
qmvTBVlvyTeph8sh1ijzXOMtApjuPT/eGMEAJU3Pp6eUe1BrptnajnMekOZ/
bd8PkV4MIl5acrA7FSeTPUP6ynPx2u67xDuXSRDgVS4po5OKdTWS1WRZCszR
2xy95Gg3biHd9Iy8WY3nMqy2Jm/pw2enaBDyohS/Xy1vbR3vwhb3imdDCm1g
Nq4oJ2bShYrfhdzdHneBS9sugkINERWuRzeQ+fPste5dmtZXIn75ucbqxW0K
FFWeJ48PELDhaaO+TmIXpHAsd7tGNWP4fovW0yZtYLFybu29i/UYsgpMYyU7
4ZCQHt2ksRoD1TstP73th+QjXPdV3yqxRUZmeFl3Nxw9NqLNEitFx/yce+MD
ffBDJnG1wM2joNRSV3BZmAL2abcy5zU/R8/CBM3kCCoEKYrZvVDrAB7d4KbQ
9H4gWjW3XJjWDnfZvuu/3iSB4yKhjksXWoDo0yzRs2cAUvC5/K6ZbbinW1wg
k8JAU22XB0tzunDvTdvEsIhBDJDmDZQ9b8dTFosKlzznYspE3HRSXhtqr3Z+
uOQ+Z8rfpX/Xp+ObSuuwn5l4qDSkmjfE+XufY+q+B7yrvus/m0nHMUuh4YKO
Vsi46LCM/Z91syhO4adXPayqjBZ8pM3D9FPkUbXp5X/X0VQ/EKRa/SlHeBDd
Lx/+keOXAcm/rw8bp+6ryFnNBRKbDmPy+omb2lsxfthx8MtWHpQmfghYwa87
uttKSbf5eXksKGDdwo9l/zxXX4p9+QnV8sKDENHJPBTcmY6aU7jfTPXDWu9C
1uLjPpoQuPIgnQ6Nc2+JK7jWg/3rTZtM+f3sEdhzq/ZHGZgWSDdP5/fzB/ef
fjwzXsgJLefjfh+mqj1r8O8+Bn1qH233nKrKddeYKPFrrmZbTDkOcvZt2yPF
QmHqzV8Kdl1YwGzuvf+TiXtVGxTly17hjm9GFWMtTLQ78uzgSr38f/aHCdil
1Us7ZslDEckZ1jcdW3DP5IsLV8UH0VfrTTvPdgBFbkZLy6kNokLNr3lek/y4
0q23jI+kInnTWhnf4yQcdQ++/9Wej496UtrHnoyntrw5ul+XivdoYeqt0hQs
OyfaVtdKwRgb9daZh2lYuPG0T6lLJ4qZBBYHijPxUsKrmGur2zBAMtbUIpqF
d/q/cN05TDS+Edmh19kKL3y7zWzlGQj5/UXhhXyNH2VpLbuZjou3O5z9co4J
Qg+9NfbOpmF7VRpjczYLFIxDA84daIDVtKRMm/cctPlw5siced3AORr67q4i
Gz1F6m++Od4FazaXWBiLMNEnihjnKkGGqDbe0P0vTNyaoxMZ00UCl8hgm9mh
DGytXR+tNMSEn/6L8q8SW9FuMOPier5/TWfe9TvEYoJukIwl5HJAVjalROpN
A5wZTeoZ5uvz2Jm72oWd+f3SlNqTljOhrYTTVpnVBaKChKvUYj5OBTWTCDkG
bBagzRS/wAQnrUXWMsp06MempuZcFogfW3vdTJgGFC+1YoevGVgu81jO1ICM
kjFVt73VbqFmWn1N6AMyougjmcvHEpDWwVWboziAS+fqBix43QGzbCqeiDWR
MPvUBSXqllbYObE0PJNHQuLps7wlbW1Q57Zrz+P+PmwJi9jUcIECYbKOV/Qq
2tAp/SinPqsH7l+lXVHa0okpsma17iJk0Ljo99KvvgPO75yxwWETGQ6Wpk7e
DG+FTtkDZBdZfp6QIuk962qD2QnvhUoJJLwqsmN7/UQnqt5/qPyB0ofnj0wq
Vkzn58nQs4Siij60P/Oed1WrBeujLZUPz+1Fj57UpkeC7RhgJWOeR+nCZYNk
KWUOETssX2dhOhmptbFW9UIdkHHiW8fDDCK23fMx0LnaB9/kfdYkBbahh3CW
0w4+rz3tfW1BHz/frqzd3HCqlAQp+4aN9su1o7Zn93lyMhmedcaEvBFpxgyt
1TXOoiSgWjgrzzFqg8N7rH46HaDAneP7nzmTOiFqsfjeBY7d//IzvKLgmbHh
XAvySbCGxR4etoy6H1OhsJCyWw4vlpNgmSaJ0B/Gj8/zP18NLh0AXxFVTw4w
8YXY06dWUWQ4ySg5XNTNxsw1zvGtJ1r/yV8EWFb83CxbiIdf6W3LO24QIW1s
90fOMAusXx9vJheQUN5fS7fuDRMoOg/9pi0cwBfKBiEv+9jwKCNcLte09Z/9
HgLK73AasJ7FA7e+k6GR14nI3Pxk+cpKEmjqZc3YRmbBj+DESdWVAyDxZvGq
wlAmvOh7u0L4KRlSRRNKi3cyoYWktu2zZSsEiTpbMTrZ/2ffJ9uf0/bWhwhW
57XGZYR48DJ5mvrIXDp+rpmIln3B4fd3xdGhgoFBeu+vRf5kIUOqtJiuyp8f
My+WgMQgHgr7kOIe3otjtZzdB/Yy8dmuKz5WbmRcsfaxUpULA/xHRONPBJBQ
MUtLaI8cC6jVEGimQMHB9bOu37Vjwdvp3ykz59PQz9hiZHEiFcS4FS7LvOn4
uHN/1MdHFChmTOunRTfgmVRX6agcDtRZ+W2ju3TjxdLzjOOH2XAoPLWsYHof
7nsb4l/hw4KV80t1z/PXgZhr8j6iJwdLKf3RxDlUsFggIWmjw8XcwokKkWdU
CDA4bmGvzsH101yc7cpoYGJ7TPX+ByoWnpHNfOTGgGaVEOf6y2RI9n2VGXCG
Bann6r/vXk+Bkbx3H73eUaFv+64Bk3k0fj3b+eVJOAVCQ7QCQq7T4QSv7OH4
/W50bK7bMu1MFyqErygePN6OldqWiTGELgx1ut/Xk0pGm03+i2/sbsfin57x
e8tJqLapRHfNzhaM4URdl7Vqg1MLGQrvZyXhrvV1BzPM22D15tuBpbuLsC12
xZacl53QsfyOqNCJDFweUrmZzmxBM5v9bto57VjL8WhwfkLAJyvjDHpjiOgT
8n10aXQbZtHzk9pFWvC0zKMTI+ldkC8oO+v7yzbkPFQqcc7oAPLiH4uNT3Wh
w8SF+6KpLSC9FLfVvujCnDZbyvYfFbhfoT5kzYV26E8/a0ek9MLwbVlj7v1y
fLWpdc9cny6wAqeFHU9rkFT3xvro4V54vOhARq1GA8pQZysdPUNET3X722zB
HrT74Xjl8tdmpGjInB5934+by3LG/M/WIy16V36ZbB/u6TUK+bqsFu+6T1wu
ciiHd+ecrbZ7lqKJ4IYlCaJV0DESv5Q2VoW3iCRp+dJ60CpvKliSTkEYTbFd
vrQV/EXDnKUed+NB5YwXjXdqIJDJ0HwQ04269z0uqh9thuE387fGhffj3QP0
5v7ndfDZqmN2uGEHjvc0fvvB56Fzvs3t8tfvgMAblskbGO3w4+zNwYCSbthm
rF6/9GM7NNhdKOlc2AtL3ihqmY62QL300ZbG7x2YbJ3I8mhuRN8xyqfQL224
KLQ9O1e6GvdvfzdNUoaId0Qkn9VEVmHxlbdvzoU2Ya5aspD52Ub8vsslwySk
AcuE+8JtCqpw8ceksoPhlZjBDjA0LyHCOdVz7+UTGjDucMUdt+VEMGjqCala
XYVq2e7h+coDmGzJ2+pVUYMXV87MmsHXTcvfS5HP6H3AFZFewuH6ZKxIXn2y
TqYYKKKshJGJcngRz3OIzE2ExlSX2Pu2NaBp+lQaBd9CzMIagt75EhAWsjt5
bZyINhYL3KsMSjFrqfHRMvNmdLMdqHq5sQCLND5FuP5nXtqS/ebxmkCwIPND
weUu0J20E60UI0L76rzPXg/bYXdwlFn0SAvsLX4dOGLQhg+2T4Tu39IATUa9
ck8miXhNQY24pI8AXe4ugw13ijB08Mm+eP73q82Xmew8RUZZqpbaE/NwqDGw
eXyosB+P2fo35xskgtaRnpmda/n6UMn+1evQHJAez4y6m9aMq4zCM3iLEmC4
vDalt7UFDzid1vGNfA+7XT6/KKhPRErDBRT61grcQ2G5Ydf8IFlF4vWHNW3Q
/Kg39e6KpxgzrpvzamUXqOdO39qjnooqhwUF/Fb1Qd+SKpG1B1sx26lG4Kxq
BWSqNj94KNiKrjqPTXd1FUG3kZyVNIHf/8mYmLRVpTAre9hp3YMA0OdsGddI
+4BdBmkGN9enw+3qul09nGKUUDjKNdsaCb6hjW9t4jLR/7np4ulPCRDedCX4
eH8bXhfimF2paYGzPTE56QZErP5udp1gTcMEWyfJWkUeescpiMJDKn5NuOV4
aicXLy9S/PjgAhuXF66+pVFAxxBzqZIyYxZGEBJkarfSMOx5uvXtfRysWhba
r/Gcih8pO3YcWc1Dp1WLymV0aaBtXOyHulxM9NZu0ZaiguO8GbMDpBn4vdzm
sMkWBuhS74kLhDPxlNC+gDvFDJhlPJ0da8/E9zu+69I20kHo+43Eqj1cUCmX
mE4XpaJBsVEWh6/HzWZmBMbsoWHRAk2RX0gFfygPd+hg4eddmQWrZlMh26LS
eFiQiW6x/lnFVyhwKo36o0+D//kjmxAfPq5fjfL1Eqt5ELn4pdQaaSpYZWhw
duty4dGrsZB7agzo0kyxcpJiwJFHgeljJQz4VWVFWxXGhBwVwQcRSnQ4KhLF
en2aCXNjr+Z4NOSBwMCHU5pGPPyHr/N5zuTytbYlMOGxPDLpOBvPTBZNWH8s
B3bGiCuDzkH6l4FQ2jEeqt+Ssf0S9j/+/UdPhB+WiqswZKNWE1t0OLoU53Kq
5s4Y4eCyZabRLY8qcSF17/7jJjwwOhlqGHUo/5/7L6Vwn7GAeM+KDftzVE4V
fyuBW/K9Gr8GObBsTNC573wFJEf5xNHV8pGgXxslbPJXb/zlCVk8gaWru0rw
s/ke7XBLNhBn3JWzM6vAlLu/5m0e/Lu/8vc5So2zNk1f+eto+bhlUpcUBTf5
GPGDmYPRabZywhlNWH26uL9jIw+vGJHup22n/fOeNh2XKc7ayEpm4waNte47
q7pR1sBjzfW1A1ileq8prISFh5c+ytJLJOEbX27+B382Gq5UZwyk9WGx9eks
zWQOZo1uQ5VyCn7O+9nWvZeD5KubxXYL8JBK28eYILb/8153F7R9VMrILmJh
uy9705coGhQ9Gv75dh0TXbIf1TadpMIfXH/mQ29tQHKEOA0/Op7TfDabB929
L2b55g+gqG8Tm3KXDatdd6YqnuxARbWrZpl8/fbP/gvsXMrsvPykH4/Hx2WK
zRwErnt3wdjRDkiYNy2Fq8r7i+uvHn59PCHCqwc2DUubr5HnYW51/Mn5Gn0Q
+0LP08uV+2fe/n5f+lDJkIoWDVbbK6xdMZ+Hp7KdxczDSaD0IozazGVj7jHD
zzFL+6Fb1/++zSsO/tohsU5oGg/UTXt1NjW2/8X5B3eH1PXJn6ksmLZkR8Yv
exrKjO2483oNE5rVRzsN22h8vUT3siS0w9xN4sJvJ4fgH/xw79ihW5ue0sA3
oWR/J1+f3ZVgTlbYUiGFPh+D5Jkw50HhxPTdPAg2G0m9dLLjn/fSu0AqVs7g
vS5/fbc7nMpw7YFfT08f9E3hQjMh8Rnl8P/eS/8zD3Zfy7K3ivDASzl+3Fyc
Bi+dhxP8hQZB/838xcqP+8HBPVfey6YHCJZcGyEOAcc+jh0YKOiAGy7EWpQn
4oezpyGrsxHcD81oPbu/Cy3uTDpxPJtAVbLuyaaeWricvM6xbmUtjMofN+5U
5vNcIdJNBe1qGP3+a+JBXjWUWMScvAFvcV/WkyUgVoGBL7XOpU5egqdVk8+v
76vD4hXW4gdDK6H1wINn+5d3IZtF3eF0rgbSrSUlzzn14uHhegXqGjKKqC8k
V/9oAMMBySf94hTMmr5tZCW/Xhc1nskf/0gEKY8tE9f928HMz/WSTk8vHL+W
uOPxs2awnvPJ5ClWAn3uU2f1jAF4/WrF+nlhtbDY/XujviAZLt9ROqd6LQay
1H56LrtNgIl+h3M7ym6j0iOJTd8sG4FQkTj8WoaM8wP27SoZqgCFx5qdz3Z1
4JLPiqYd06tAWbNeX67DBWqFcljOfb1Q9FZxyQD3JXC+RRaZapKgIsbKojk0
GX4mrd/ttZgCuykbDxHtU/Fyu+GDK8cJsETozZyjm5uBk1F8oeVmH5hOBg/b
Hq4F3brztgNDvVDVbCoVmN8EGVJuO2XPdwF3Z5wvdSQdQnPecXRqeuHMuzJf
aaNm6Iq+W9diRAKK90yRn2WFcGjxwe5xQicE71zoPJ1XCvnGX+Tjg3vhRbfR
aM8ZHl7sfD2QbcdFE8/xFTuDOXg/7Yrj8Sf/+x+JP/en/3l+EP+Jf3zuFi6j
uIeNxJXF284u4eLjwTdLTvP1SJHM86tOV1hIfHtiY7AhCzNLLAlWOkwclz4x
kWbJxfkDawjxPAruPpv1eoYNF9dJ5kkSTvKAqDS4qiqfiQwhybNKhhz45/2Q
f++/wD+4YKwkznDt+CAazrr+4tc+NkiuFtkZfoKDd5VJuafbqKAzLbvwlx8H
K8U1N7ycQQGhn06xolwOqlQtabG8y4SUsttL/R4wcU+y6jqCFQv6WS+Txay4
kNK6QY7iwMO7jcY/d7oywaEu8OiD+xz8Z3/8n3zxv+cu/8ybv1tyqwBjEKY1
XLMVP8RGBeaCwEADDoTvVNq3p4iKHY75Kfv8OOB6I21GzXcyrl0cUyxQwQHd
9wUg68NExc+2P6cpMeFo7Uz5JE8W1pU2C3Q9o8PG7oDxOfz8L7P0pNlcGx4s
mginDp3kwvUx220pRhyYtvx28c78//0vxR/c/8wj/JM/gWF75/SH/Wz4WryO
0vZrECY/X7TvbaeC1xzSRpo1B5bcVFvXOpMCBGMgaPJxe09XWx52jwn6qu9V
g/n1UKy4OLD0BAvoSRcvNwUxQcBJ+jrzLAnfK8ZuXlbExHaNGfL9hhTUEydk
ejsyMLDoXHK6FQ1jLoVJ14fT0XbxodObrjPQoezp3NwOGnLFE272+TPwxWF3
7eocBiq2iN2+tpCLyQusHs983gILn2ozv9lycHdk+HzR5gGwbUj4fw3XiT8U
CBvA8dzJ7uZ1JNk3OSYSi8WrlPfZUsu21p2b/ayrSHKGxpKRIyF9sBi8UmSy
vQYz7uNxjTHWEWbc52gws5J6Ezp4/RW/3zdJ1HUaa+Kv+h5ZFcBlFjlwgjAN
0bmlfVGVAszTz9oKObIGhvXEwLScURT8LkEl+AvA5mS9gm7bPNpf4DezyaPw
et0i45jcGigbTRAYw/MQ9dl4VNpbAN3F5fgDXwDD8cnLDc7TgNXtkVdiaRgk
0q2Wuf+n/86sWn0sRMN02kd2Pp8FRtuMOsrLdKRLfy5Nqa+Hf9VSjTzdaWhF
h8mfaFToiTgzzb9CB7GEuxWKqhzY8vfsvfmmDKQfPx85WFIB8s3MCY+dLvC/
libe9hUHxi9c8zyw1A8NO3N9PxI5QE3vsWStLKM8wSnlUhkXiS23QvtGBNjI
EJB+bVzE6oobl5nyfGT03kv2UliBvb9gNTPiFQYt0y6Skniw6yIIN2laBR2n
f8QNCq2gBKX8RrXxCoT4+YSfiFxG13UZ3cL5JWhp1VBqjuUhc9z2luxBLigC
ydpJdBn3vIXVTimuQPpZEvdbeT54zY3p/PKABycsS4MOh7+CeU1z1holH8nn
kwkxK6VImdcSGJPpKOeUypTdDsbjons2knm1GG1TNlQeVYm6plsf7BIGIPEq
W/TUpVYck5UQpD7Yd+hkHyPxJQONeugh5H0HqacUkwodO9G28FertVI+iJgV
Kuvt/7lfmMtCRhEPFrVaPMzVeNgWUNnpkboIvtKq7yOBj/l3hI2XR9pR3YXl
EHQpEzw2ZckFtk/ge4bfxifNTNRZ3E1fTGyAlErCyD+ve0DuuJKKvxkDH7vb
d9lQ81EtU/o1qacXpa52JTysqcWcr7T1NrM6MOmmZcA6uQaNdGuVZO60QybT
3K9grBF/fBiWaCyEkHZoT+K8Ujc+vTtx3tGkF3wtnkZE63cA8WBscN0FFvZI
il8LzXgMxDgLcQPZRpzqU06pMEV0FM/eHKEOYF3jEPEtrR4ooju3y3vbMKzh
Ny3vsB7U/XD3/dG6HrRudN8rLdn3rYTFt31Z3WgrqEsT1RhEkw0FvRanLgw/
ZWBj2zmN3LoLsyvQBhTBn5QrBv3Y5ZidzMxgQJzz3ys273pxdZTTFarhiJEU
3kUX+xEU0v2Dqcr7L+RMyNRR2UOYuKjZNXemHVSF6S/ogcNocXS7pltyHKtM
5J/7ijaCyY7yhtcGC9e3VBeJh4fxs7rgjUfkX7irWdDxKHz/3wvuv4rva0Gl
wEOz4S3jGJv7boxGq8Vnw73SAQHTuDEwF+ej2Q33x/ISHJrmcCzE21EzYwi6
QsRMD3u2wu0v/ZkErz7I5poaxLlXgbC1woKNHxP83cuKncdoeJ5omCbj2gkG
/3PNKfIpRdLNa1nJWVOodduLsGVVA2H99xx2FyZw9mNOTol1B0yrNP/mm8FF
P0HVyqN77WAR/t5a1XoJPwzCGR3+fTzX9OKRJ5EBNbmcGNfDsaCy7fNLm14/
5GeWjfukKIDb13R/NrChxU8jjprdArb6ny4zFEeADtzWmLxuiK0+N7jXwQHL
k3MD3lI9yI4yKGk4xQZNY+IVn4g+UHZQVLrRPAa+YvWVt/cq4WFK0tvvKONQ
rCbUbXe2FSxZx0iJMR1IZsStEX4eRWanm5+kTheMUiO27CM4eCu/K0S/eAyY
a9o7RPVBdB+W+saVOACiPmltM8f/xJptZ6E8kRGIsdWW7M8iY7ziDC/AbAHO
mOu5cfa9/F3+5A+UqBm43ON6f1ekCW9KB9dXaXFBSt4rOljlP/CkIfwsvXMJ
XM4Z8uPkKPA95yfn3wc5cCLoDxNFPUMMdSu9wzKcBGfbQFFu+D1QPeDfG/Nu
Cq7H6mwfmHiCc4GzpxPNZ0HDvazb1SodKlkKJIm1OTDI1BpTSh9GpcJ64Y/7
XW6zdKh68aUWZSd7xY9LcmHquNn1IWouvhxZ1ywpWABzprFPZ3AO6IU9u1Mr
Mw3lM+b6HcKdcMjsNFvIYg4UM2RkLbXbILsp6wszqRXV+6RNneq4KKeoyq5a
zwJo2iQ981xCSbY0PeHsS3y7ICiq21pAy5TEUBn5alw7bZfof4SDRowIG7mL
d7H+52Ry+zfjOB8SRcgTNINe7mZgUeUMplrRsysYWUiOVntwTDCFVGMOug0+
h0omVdVNbApPqnd+tOvlo2F8lL3LMA+yN2QlCwq5GOslNbQowwOxh0pvPo3w
4ID2U0E5kw9/q0Ta2RzlQdzy9ddLZC5wWg8t5xe3Afs07evUq5Mo5lDoslY0
D86yLeIiBVXwfw3A+jU=
        "], {
         {FaceForm[RGBColor[0, 1, 0]], PolygonBox[CompressedData["
1:eJxNl2m7UFMYhtfOSdGITrNknud5HnNOnZN5FjJd8qGTUuYfwOlUKBJ9NUf+
RGYRZYiE8gcMEcJzW/e+8uG51rvevfZaa7/D8777wDvmXdU3qJTS15SyR8Yp
wf7B3ODIYHrwc7Au+En5iuC94HJ1O4KjXfuLazqz39MZp2Uck3E/zgieDMYF
TwVfBJuC+cEJwYfBicHxPvvIZ0+6nufrg3vcA/344Ijg8GBeMCFYHkwMeoLe
4MvgxeCy4Anv/oT3fz/44H+6ua7FDncHB3gGZz0tJqib6xrWTg4mBSvUY8PH
gzXqePaVd+FOewd7BfcFi/1uvu9l59jqluDT4NbglGBobLm5VHtig87gJfZp
6rP17oHdbgiuD34Lfg9OD3YGZyije/t/z/f3G7jzqZ7XntXnec8E+wSjlV9y
/kDwZjAi+DNYFHztujdci//3DfqDUcHI4Fnf+ybY4jn92oC9hrs3fh0IXg0+
C2b5DrbZGNwb3OSZW9x3pHsTF4f5fp/36NdHj+vrC4OPgwtKjYcrg2+DA4Op
wYPBQ8FzwbDYeWvGla45SP3Brlvpeyt9hnxocEiwKnjF+Sp1a5UnZd+Hld8J
/gp2BZcE04Ifg4uDbcFFwZnBWa7Zpfx3cGfQQS4Hb0UeHKwOzgnODb4P8qhs
CMj7EZkMb+q9sPOcUvOpcZyjDQd8frDfy72XaDNsd3VwTfCdd2eDa10zT99x
Pmdxh0+8w8euZ+11wT9+x9ncPWsvZauMS0vNlTZn8Dk59ENwR3B7sGfwfDBE
IL/mOtYPKzVmlpWaU+zDvq+XGlcbff55qbx0rGte952RTT2Ps+A9OO8o9Zwz
KuNxvrfJ87kTfthDez8qXlD3if7Er3ANXDQ1uLnUGJ+l/0Zn78e02Rzttt19
eHdQnt9Vqt87fAff886P2hJehI/gxi7tin3JnRtLzZ/uUvdhP3KXXCWfTgv+
KJVD3vVd1pDvcA08MrNUjuvV1tiTHO7wW7kr9WFG8GtwVak5dKXfDZe+p4+H
6hu4kzyFm+53f3IW7oavL/O9uc7hGDgJboJH4ZKTSuXXxcpwWZ9zuIF8JP6J
VeL0/FLjeoky9p7nnHsRW68ZE8TGbaXG0zJlYu0+59QtatXYUmsI9YwaAnev
V0+to+YRO8QeNZP4We7aBY7MJ+jD5eon6c812mmFdsJ3o/UftujXNvAi3Ao3
4ruxOWt6U/nqQf2BDM89p8zY8hw8OLmp3AUXrNV2A9qSWCfmB2ujpdoM3xP3
25SJ59XKjMQIMTo+6G3qN7zoN83Uz8wXllrvqCnPKPN91L9+v/Vk/Yzv4VQ4
Dl5dpcx94aEB736efsb3j5Sax+Tu88p8x0g5CHm2fsb3xPGQpvZHK/QDd8em
5M0i74k/uptqd2oaud3Wv72jn9JU7oQ3sekk79yrnR7zPti3p6nn0t/QT9B/
jWlqz0WOUr83ex7+7Woq/8O78CtnjWuqH6kV8OcP7ov9ZzS1DpKL9Hptz0Se
kavvqydeppbduct4gPoPXEcvQk9Cf7dYmfw73mfoyRHyoO3tGDvVr3cdPAnn
UauXKJOXF/nsQuMLjm05ckM153/6Da6D5+F4eqtlyuTrLJ/don/grba3YBym
fqPr4PhjSs1X8ne+9z1afxyjbpp98Bc+51vI803qiJU9m+rHX/Un8USsw3Uz
1X3lWmKbWKc/w68L9TP8DQ+3/RexRVwRZ9SSLd77G7/jJnU3u+5r3yP/4eWt
+u9b/YnuavVblb8rteZTu4vxCz/AHeQUOUbNn2hvQ0zPLjWXqKHEGflG3MEL
9Dfb9dM2/YbuEvXblaln9ETULjiDOfkBp/DvQW0+Sj8gk5v8y/ysnv8UalBb
i3q0/TrX/KJPhuiXdepYQ57tULdD/+Nremhq4PX6AJn++gyfoafvpo7udCRP
/3Dd7+oXqtusfqfzP52PtebiL3xO70f/dJ0+QKZ/PNNn6OkN6afavgou+Md1
u9Q/rO579X87Z0/m8EXrY3xO7acH6NIHyPQF3T5DTx9BP0pPwgjPdLhukD3q
I+rgn3ddy3yw68Y3u32Mz8mBNfoHIA9xXKAMFugr8oU6MNR/JOR+7YyN238n
RubwMXnR5gQjc+ogcT9MG7T/AcQ5dWO4fTTygPbElm1/PcK+d3apdYMcAMjU
FeyADUapH6VNqI/E/WhtwLjd7xxj3elUbvuETuUdyp8bN8RPlzWh27o/Tv9O
tB6Ms/6M1/4zrAk91uV3jIs2pxmZrzVGyPGJjszpGSa7J9yA7dr6M8WYekgd
6+BFOHO+d5/m/d82D1rO67LWUVu71U33u6i1zzp/w9xBXmSMdTS7uWeG8UZt
7VHX6/dSa1c7f8s4R4Zr/gXyhv2m
           "]]}, 
         {FaceForm[RGBColor[1, 0, 0]], PolygonBox[CompressedData["
1:eJxNlttWlEcQhfsPJh4SNDAaHJUwPzCDgIIcxISYqMDiDhAeIRdeoCt5AhQV
4SlIVHwBYhRBCMSZZwFETrnLZfZOf7OYtWavrq6urq5dVf1Ppz//OvHLZyGE
f4UqIStcEBaFVaExCaFNaJT8m5AKdcJ54YUwj633fCG8EpaFR8Lvwm3tfcg+
7/9TuCHdY40XhYkk+rgkTDG/p/FboUH4Lon6emzqsXspnBG+xs88MdyS/aHG
Ofbazz1ifiLclM58f9CoX3gu7IYYz1nhvvCjFu4m0eYxcW+HyMO6KuwzwoxQ
Cyx/JKa3xPhAOCV8KZzD/1ni8PwbzpvBn/cswe37JOYgR67fwyElFq/bj3VX
NP6hcUvoktxM/l+DphB1Rp61gtAiTFOnAvIp4nYup7Hpl3w5xJxNhihPoh9K
YiwP4fmV8JPmJzSepBb2Ncf8DmueP8O2WuMC82r6yP10XPgc2X3l3B+jbu4j
91MnPeocrOLPfvbJl/O2Sk2ekuMFzjktvEO/wfmef6DGVZxln/vkZZb4zGOQ
fh2iDnXUyjlvJO/byK/JfYF8uwaP0C/Dy1x3ka1bCfFOLsLD8zW4uM9qiHcJ
DktwK/NaQOc8niDmV3BYxpd9+/6cx7/jH5Ndt9CTRJu/hDfEuxmO+moTfhvk
7B095H3Xk7jPvgckFzWWhPUQ74lj971p19oenM4Q7+kKPi+Rvb5HjRY4yzx2
4LKMvEvOVio4LcJ1hTy+oCfew6slieO1JMZnPkV4r8FhDVvvcd0H+DblNGaE
2iR+L1fx9ynE/twh/j18bpAD58vfA/dtO3sL9LLXajQewNfzffwUK+L7O8Q9
TUJeyPIdcF22GF0z12KbudevEl+Gfd7fjI3XR/jme+7v3wz5L9ftI/NP8Jsl
7ztw9jf4nxDveC35qeF7uovNMeTn9MBbzimSK3M7gLf5P0A+JDcfyOMsZw1z
Rw8qzvfaHfI4nBzpD5mXiG8dn+vM66lnCX0GH9bnWBtG7xw0sSfl3rQmMf8p
+hJ7s+xPqXcDuc9i14qcx7dtr2Kb4iet2FdgrUQ/l3u5GZtr2DWgG+RODnBG
F2fmWb8MutAV6a8So2vSht833I8GYvC54/gfpJfcR/5f6IBHDn4+c5S+b6vw
6/kVvgft6O8juzdusm7dEzh73oHvUc7xvJNauA496DupVyc2vUnsxbKuGW5l
Xi3MfSe6yI39tZKjLe5WD2d343da+j70fjP4PTFJHsY412Mf8iZ+7G8a2fe2
H5uyP/u4Cw/vK7+lbjD3e8fvHr+T/L80xdzvCP9HW5ci50L8H/cZLfjv5wwN
/8dtuQrZ76Zz1MD5r0P2G8ZvGr9jMtRrhrnfA/7v9N2tRvb7wG8MvwlOchdv
YWPOt+GbD0f/k77Dc9zd4+Hof8zvRffyPHzdd1PI5jhETcep3Qg69+Q4svW+
a77PB3wzhukT171y3wj2Weqdo+aj9HQ3de2gbmP0gGvUSx/0MfbSZ+PEOESc
5nAJbhe5qxPw+g9BfSxb
           "]]}}]}], {576., -189.}, 
     ImageScaled[{0.5, 0.5}], {360., 360.}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.720767319044098*^9, 3.720767339585678*^9}, 
   3.720767429624558*^9},
 CellLabel->"Out[28]=",
 CellID->1219667924,ExpressionUUID->"287ae973-e5c2-4ea2-b88b-a470f4262566"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eac57ab8-a5b1-4951-aa40-2a584990ad7b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1270816031,ExpressionUUID->"f8561ec0-e424-4d0e-b732-f73639651609"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "f91a043e-e478-4606-b36c-aa88a10b0ef3"],
 " with a fixed internal node and smooth the mesh:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720763829309903*^9, 
   3.7207638316292133`*^9}, {3.720767179438414*^9, 3.7207671802949123`*^9}, {
   3.720767212990304*^9, 3.720767215780878*^9}, {3.720767561837792*^9, 
   3.7207675912634983`*^9}},
 CellID->1099912994,ExpressionUUID->"40448b61-efa7-4edf-87fc-4727a3a5ea26"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{
     RowBox[{"Disk", "[", "]"}], ",", 
     RowBox[{"\"\<IncludePoints\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"1", "/", "2"}]}], "}"}], "}"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sm", "=", 
   RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7207675161182623`*^9, 3.720767577821645*^9}},
 CellLabel->"In[29]:=",
 CellID->532479535,ExpressionUUID->"704501f9-7318-4dd1-bd10-9b8593018d62"],

Cell["\<\
Inspect that the internal node is still present after the smoothing:\
\>", "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720763829309903*^9, 
   3.7207638316292133`*^9}, {3.720767179438414*^9, 3.7207671802949123`*^9}, {
   3.720767212990304*^9, 3.720767215780878*^9}, {3.720767561837792*^9, 
   3.720767618317663*^9}},
 CellID->2143469651,ExpressionUUID->"e6efa631-3605-474b-a454-004b699e01e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Position", "[", 
  RowBox[{
   RowBox[{"sm", "[", "\"\<Coordinates\>\"", "]"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "/", "2"}], ",", 
      RowBox[{"1", "/", "2"}]}], "}"}], "//", "N"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7207675161182623`*^9, 3.720767577821645*^9}},
 CellLabel->"In[31]:=",
 CellID->2056099770,ExpressionUUID->"fc9771fe-e1b0-4248-bbea-c947b1129622"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "49", "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7207676217431717`*^9},
 CellLabel->"Out[31]=",
 CellID->1370903747,ExpressionUUID->"3dfe8fc4-565f-4301-8f04-e9ac1fcbb6f1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "92880ce7-3121-4d2a-baec-fa1f584ca935"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"832bd50d-198b-49c4-83f8-373271a2f341"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "5d2cc6e0-9ce6-44cd-b8d3-d518f1c95cd6"],
 " from a ",
 Cell[BoxData[
  ButtonBox["Disk",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "56b69fdb-8df3-4e92-a7d9-93b692442550"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9},
 CellID->423397492,ExpressionUUID->"314e2035-ab52-44b4-8bcc-53667bc6c278"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"om", "=", 
  RowBox[{"ToElementMesh", "[", 
   RowBox[{"Disk", "[", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7207595805879707`*^9, 3.720759587379307*^9}},
 CellLabel->"In[19]:=",
 CellID->120966240,ExpressionUUID->"0625dffb-f057-43aa-9592-9ef01ab5d77a"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720759590147121*^9, 3.720763210008287*^9, 
  3.7207662066623383`*^9, 3.7207671902418747`*^9},
 CellLabel->"Out[19]=",
 CellID->936490409,ExpressionUUID->"ef0b494c-41d2-4943-ae9f-b8655eabb66f"]
}, Open  ]],

Cell[TextData[{
 "Smooth the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "6e05f754-5532-48c3-931e-bb3c1871be00"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}},
 CellID->1164065725,ExpressionUUID->"c5e9ad77-a78a-48de-9a13-41d54ea70eff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]], "Input",
 CellChangeTimes->{{3.720763283935849*^9, 3.7207632974677143`*^9}},
 CellLabel->"In[6]:=",
 CellID->1980836260,ExpressionUUID->"fed99015-e143-4c6a-9026-1c42a7afbe8c"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.000000000000007`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.0000000000000067`"}], ",", "1.0000000000000067`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TriangleElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "504", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720763299788437*^9, 3.72076620798523*^9},
 CellLabel->"Out[6]=",
 CellID->736361802,ExpressionUUID->"99b5e3ca-9f01-4af2-b5c9-8c0a6d78a08d"]
}, Open  ]],

Cell["Visually inspect the mesh smoothness:", "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.720763715750421*^9, 3.72076372865266*^9}},
 CellID->1309141233,ExpressionUUID->"0edfae52-b58d-40a7-bfd3-84f75a90e808"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", "\"\<Wireframe\>\"", "]"}], ",", 
    RowBox[{"sm", "[", "\"\<Wireframe\>\"", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735682223361*^9, 3.720735718218481*^9}, {
  3.7207637314212017`*^9, 3.72076375122292*^9}},
 CellLabel->"In[7]:=",
 CellID->1488495006,ExpressionUUID->"258900a4-9615-4d56-ade7-e2f6703f407b"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJxVenk8l9v3vZA0KGnUIJVEA5JKUlvSrJIUSdKkMlU0SEqDKdFVKUJSIVJC
MrMlkTFz5nmeSiRR+p7HOf1en9/953ndY5+11t7Peq/9dt25R05rHufl4eGZ
y8/Dwz3Febh/vsEdX88isHikrFukmDAQ+xXUmj6VvnBLAr8e8zE3qrrASj/i
97jKXGjZHnDOy6wTvMZBbIxYKVS905Q/ZN4OqZYlaR8sasBqpGl4Wk8LuA/u
3Fom2AAmMZlHMv82gtXsNYXT1zaD90qv+LCAOtCbHfAiiKcNko9Vd2b/qoRP
ZoJx9Rs74LG84Wq31cXwLWaOoxxvF+wc9XaFXlAWLGkaqPwt+xX2HS1tPpwf
C/l/RENb87+CiczNmRccD60TY32so7rxXx8XqG7818dDqhvbWB/JVDfWsD4e
UN1ozfpguvFfHweobnRnfWRQ3RjN+vhOdeN/rA8ZqhvlWB/FVDcuZX0w3Zjr
+ng61wfTjWz+/3TjNdYHmz/6sj4qqG7MYH2cp7rRg/VhTHWjDeuD6cZ/fcRS
3fivD6Yb//UhT3Xjvz52Ut3I5o/yPVFzie7Ef32oMN/86+MM800A6+MW800H
6yOJ+aaJ9eHMfGPD+jBjvrFkfexgvglmfcQy3/SyPmqYb9pZH2LMNzsFaR8Z
zDd5hrQPKcUWQZcCf7Rat+1q189WHC2mfYQ8QetwqpPz/5xXrRqugym0Hszp
OdiuX9eQ+yEZdf4MKnvN6ECFfaKy5Amehf1l/3tuTevgDntq0XNYkqGwIEUl
E20E04WOzCfv6QzP18PzG2Htacdz3LkVOxejdbCdPc3pOfzSUN2tP/kDCo5I
1D6i2YJNMVvWkSdEL3hvxJ2PZOcdtA4Ed9PnEM/wOYjXL/ih8dUcqxM+u92b
WY9bFK2/LtUrwMOPJvNkr27FWaeKDMg51GxqTdckdSbnVnRnrW4F3+IP42RI
XRm7961qGAcOsntbKQ4E1tHzLFoHOux8P60D0cWVVzJcYvCCc8DI2cKNaKZ1
XNGs7DNei0p02MrXgVjiXDVLuBFUXTs/cHVWvNE25BxODMjt4+rM2b3WRcM4
YMPuMRyQofhwgtaBHTu/TOtgl4iqhqVzCtq/ks5N0q/ECDv+o+QJ5ptPpXDn
F9n5SloH5uy5l56Dtbr2vCjVFJTqPtJVv6AOr/06mUyeIK0TdIE7n8fODWkd
eLDnFHoO4s21d+usinHEHOGe3bdrUP1E42fyhLFP77Zy57/E6PkMWgdb2bOL
noPPYOnxjve5aLirIMhxVR126FlGHhxbgvomL0ONFzWiaeoFO3IOXqrb/Lg6
kzKzx+QcDn5YMsTVHWL3HlIc0GH3mikOxLJzLVoHwgfpuRatAy9/Act9d1/D
jMbKCVanyPv6z5aXPOHUD4+y/++c1qEfe06l57D7T4eTwq8iUBi3LFXCqRGv
WNvP6VMrwemTZXnfTW/HycooIPe3EnXGzI6fuLwFl9E60Gf3zCaG8JE6cLSt
FOfuZU7YHkfqYGpv7EjunizDNaD1OI3hXqY88A+X8cABVreC8dizuin0Hsxg
ddr0HiTduP7SIz8fN4Zukbp8sAknf3/Cd6GzFl3kyteMz6jFs70uwuQcagqK
Krg6Y/46OXIOtmbP5nJ169m9WIoDduzeVIoDJex8Na0DCXbO6qBl/I6LMl9j
QNFwV8dSaMZza3WSyRMiky2zZcn5KnY+e8JwHW5jz8X0HJKOfvIvF8uHszBi
qECgDXfV1cpOtqkGvycj38Q9bkIzeg5ZrO4JPQd9VmfK7uXRn6M3u3eE/hwz
2DnDB112/pThaDi7J6atq8beEFv59d4NuN5pwfaCqZV49Vb8Dm+DWty8Nuyc
/vx6tPp6danJ3EaUVehLEk6owC3fLbQeKhRjxvcRrS4BNRj/VHfQ7kAFtthu
1llXUYbiXT5XMg5WoMEk6cVFmvnYlXVGcNKXElyw0F/LoqcW7eM9580PKkLd
33efGhpXY+wlvwaZpSm4JP2r3J7OeuSpsCix7snA68k2LWtaq9G9XqTwgEsu
Zk5xSTGSLcK55wfSam2ykPfE9xVEN+SNSJ70ifQxcVq/NtENZ2Jb7bk+djS9
n0R0Q3TaeHeuD7HjfKZEN/BqBgRPJH0sk2jTtD9QAbUZih1cHyKezauIbsiN
TLDh+vi7kZ+X6IYx+9cbcX00f0hSkAgqgqgvvHe5Pj6n+oTJLU2Bm0/ymk+S
Pp5r3Y250ZMBjmvP+2uSPuZGXrLVc8mFu6i8ey3pQ3Hx2IXVNllwSl9NzZj0
8Y3NfQ99D3CRzV2Fvgc4x+a+nb4HWMbmzt4DvGRzZ+8BxrG519P3AGVs7vvo
e4AzbO5S9D1AEJu7AX0PkFFO565E3wM4sbnb0/cAWefo3JPoewBrpruH9gEG
TLcN7QN0mW4T2gd4Mt3MP5DDdJfSPuA3093fOdwHXGS6q2gfsJ7p/kH7ALvT
H59zuo8GOojJkvdQ8ThyWPco054O0gdkrnvbyulWP1tVT/qAtS6D7zndTXyv
3pI+YP90q4F+mVxcbSjcI3GuCo0ufnj9q6AOn0l4LeHhj8MS9RBJgSvVqBdx
WsggwR9dFxUcrej8ggK6Ju/+04rB7YfWHmtbU4OF593u2p8NBesPNRaOkSUo
fuRRzL4CLxAJ3Bam3dmExn6GS+Um5OLbsbyHHx9rRd4DPrsCpNJwdtCRwAHP
JOz+1r1a2yIXldwEPxIdsGzkx4m/iK5MBas0Pv44MOwNkBskulyXO8yzTvCH
lKHI/8YQXQn1Z94SHTD9dI1jNdFV8+rzQpuzoTj+mq9OK6crKj7MN98LvVOt
1rkRXb5S6VuIDnjtsTiK02V+/tIBogNCq7N1OV19zypi91nkQvPIX22DRJcU
m8suOic4webC5gRJbC7VdE4whs0llM4JfrC5LKdzAuuDdC5v6Jzg31ym0TnB
V106l0g6JzBgvLOpDlj6LjyY4/2uKqdGdMB5BwVFjneRuMy0o2QuXSsOOHG8
Z0Kfn3UlczGr0RrL8ersK1hCdGBj6W7JW4Q3xcWgWbXAC9X4Pg/zxi//LMvN
JdZ66SGOdwBnG3BzOfygqTfOvQDXFAmYHpFIgfOzWp4WfOzAietfiV+Zk4Yn
zcZcH3c+DV8mOP0XdasYFbe4O0FPNjqJdQqNiMjFnfw+S0IkPmFxJp97v1sE
flr718vt50NYeXmH0mBzDrqvrZxNcKDH6JQPh2v4cpYswYGVfdabhAhu5L7O
OJ6IXOBt+TF2PcG1Gjr/NL3rPdwS6BB6WpaGPwupLm+3YZ0gwHRdoDrhj5P+
m9rmHJjuNHtWBeGd3Vrly52Hi3+Zw/H2y079LrUvGm3m2d1aVZwCL2xl24VO
5OMryBOXcfHCTA8L2ZntqVh40+/HU+NXMMSf8eZCZB5O5w+0NF/9HnnGV5Xp
ZRnDbhfJtK6DgfjOPaxJ9/Z7mPo5R+jlknxcofJjpU9+EvLUbVKdPS8PJjqN
VpCZl40ee8u8pg5lAc/VqUcHL++H36rvx17VzIXt33/fnGuXhwrqyzef3h4G
DmYZkV8jYtC2vSxmbPI9nLKq4D+L7RF4sn3Ls2yZZDw8aY+OWv999MYeNZOm
MLjPK9D7ujgOrht0XRPVfwo3NwwEpS0KhE2L58ufmJiMfy5FLdB2eQ+jj4t9
8Bj3FjFx/eqhmjSwqG6baOiUAgUDB28f9s+D/gWXlKvDEmDRt5avvOI5sHTK
FEm1K5/BxM7dqdQ+BmBcd8EV3iz4POfUtqRnoZBVujDFsALBINPo0cXm82i3
9sWmsNgmnP4udRp5gvA0l1mm5NyWnYd+Gq6Db+x5gZ7DuMg3KdFnSsFf/LVj
zbcWfE6fMIudP2Xnc+m/40z2fMHq8KcW3xZsxLHy19NP8NSjW8/oeeUd5PcK
QbknWu/K0SWp+5xBbDEal5qordhfiE8frk4gdbD4e4Uod09RxJqrgxMZh+dy
9xz7jD0V9heC+Y0VPdw9AYabQnlAleE+pDywjeHaUR7IYnV89B78q9tE70H6
jvUWw3VHcC25B/2PNjdJOpXg3nczO1KtE6A/6uHBS22B+PZgnf2WiQUI7Pwh
rYOR1QMflSYWgJKc14fdpM62ckj96LQCLPCTmeyX2YzFX63lBs2KUPPOJZOe
D43ouW0g/+PbIqy5cUhnlnwzih+o87ip0ImnIz7cMJcqA/4TCz+au3SgnfaF
JRuB5Mh7L331N+3o+S1c4MicclBnOLkUF3L/CrVe39aAUrjUUTUjDyoq1y0d
CK3HdUukx/sbFoKYQenMnWnNqJq1xarpYgU27fVS+japCWtPnzgoEV+GJ6ee
fnFjbTMm7c950RfxBaOvD0kfPlyLqz6PCC2uasBAU0HlyxNrsfV3du+6l00o
fyy4btCnCgMqNC4GnWjCXqZjE9UFW5mOVKoLjjMdhVQX5PyeMvTMrx5Vx6Y+
T3ifBhcyom6haCOmv5kYXsiXAhmJ/FY8XvXY+e2ZXI5tErz8uCcmKrYdFaP5
QjN8itBRVIk/2LwDpQ6v2917JQ+vSY+qeKLYhVbVc2wujilCz2AhKY/yGrQ6
urVv8vJ2PKGxa+Dq70q8G38vzkq5DTWM/lRLFNRg2f3asErRVrRpCmv8PMYH
d+arr7jj1QLKkZfiF/y8iikTJ2+OkGuH8csCSzsORKCv/9ShPYWtEIaSKydX
haOkmPw0k8YOvLPLUjJCMRpbZz+vVBvdjg8vTem4NjUJH/xxupDc14krXp93
ODU5D40enLFVvvsJuj8pTZwSUYAT59xW/nYyF8TCgq+eWFWMvVdeHRY4ngWJ
r7VFOB3TJRYLF4zxgYZiU3lOh5bGNpD+eRU8Dc3qOB3vfI487jwQAT9j/owu
K3+Jr7LCzaJ7v+LK1sUj7xQ8wANzFsDPwQ6MyC9QM7yYjmp6iV+LFrVhisHs
6QebslBhR2vwtNQWVDn7xS7cLw/PBLZuuO3Thjp0DqjH5pJB54C2UXQugXQO
OCRH5yJM/Qtx1L/4orGJ8y/Els9dSvyLk1UOHCL+hcRz+qOIf/GAX7/zw8g0
/HD2spC6fyeWdYwcmDPpI+aM5r+13PUralFfYCHzScXTkT8312fgZvGZ6pEy
dRhhcM5y55Ec/L4458D51/VodmJoH+c7n+3XTbnP2emDvJmc79aNdU0iPkST
XPOJnO9+31izm/gQK6jP0Ir5jr972Gf4mflO6eBtQyWRLoz4L+Pin/4oDP7e
NSpBoQsHepMv7737GJPStAViu77ihSMPXz95HIpS/3xAfQEh7D2E0fcC/97D
85bh9wLuzBe3qE/g3xz20blAFpvDZzoX+Bv06DSphxEp5s2cr9pcFEcTPkjc
7jOV86GYUvQn4jv4avLyz1viwxdUN/zrw4Xqhn996FPd8K8PVeaL19QnsIz5
AqlPwIz5gvkEinMq5J8/6sTPS8etalyfA9GKX0cl8HbiUbOsl8cnFUCy0inT
g0Fd2L/94tIyjXwwZ5/zFPo+oZt9zk3o/GE6nT8k0vmDxH+Ll5F5webh//72
AHm2qI4guuHC8H9PeAzO4VWHSF/gM/+0K9enZmbhSNIHpGyw6+D6+sxy9wbN
YShjOetBcxf+5QLLCfiXC4Y0J+BfLrCcgEcS4sdWnqvGPEOeFnvvGDx/P/zG
01flqL/n9aE44ySMiFPZeJbsnxkzRKqeiIbjJ+aTIDpvMGI+YfMG9n5Qkb4f
UGG+Tqc+hw7ma3/qc6hhz3p6DgLPaJ0CvQf97bs0pBa0glCiucv6W9EoJBgW
eXVlG0j/qXg2rSMZf2XsvjNnVzqa6B488n18B+bS94Zf2HuUZzkfS3MfmljO
v6S5D34s5xVo7gPfIev7HM/7OfzGhBfXbU3y5Hjk/uplEF6MY3vEjO4VUGJ7
R4LuIShje6ed7iH4l5vnaI4C8xHGMF8xH+E/X11he1KM5c49tid56d4EP7Yn
zejeBEO6F+AG2xMSdI9ACNsr0+keAWe2V2Tp/sJitlc30v2FdWyvirdaaXA+
XSCsYcLlBs+7iBLO12/rPX5wufXEL9WQ8/UbL2jnciaX9gsdbO+G0PmACdu7
MnQ+wOaDJgs1NxO/wpC65chU8j3BLKKWh/gZVIqyznHfK/72uOhfWZ0L+yoE
vcySGkEveF5Bml4WeOvwJXVpN8NLlzVr7i5Kg2jbD/J15PtcwheLn+s7XkJX
g6TkicZGeNIk57qhHCF8U3gIhDWBxguh8Z4f3oLSE/nPt+ybYdxl+2by/qFO
vE+d2/uGcT6W5P1Dr1XiuN9k7wdKlvkRv4BGw0UN7ntCYOPwnoD9bG9kvRve
E/Bvb5TTPQFBbG+oojT3eQO7Jdm/uL3s/NCS+7zBAZ344b1sQj+fEM72uPQ0
dCd5BNanJFS5vWURd0GR5BG0SXd5cXtLTp+nmuQXCAtfMuD23CDtE8+xvuNp
n2jA+lajfaI869tSPs2GmyOOdLlN5opLtI1fcHOMN1wp8kkvC+Uf+E3l5miV
4XeazBWTaD7Dti66t6TFnARIfsO5rr2O3F6LfznrNMl/CNQVdC4le7mdvi88
Qt8XKtP3hQH0feE9+r4whb4v/Ex14xDrw57qRmR9aFHduIn1kcpyW5nmOFSw
3F5Ccxx2sNw2ojkOHanSg4bEB28PRz7geDTTje5wPijtjMrieGyiRgVzPjhz
x7/gEeFZWtXORz6HMEEHwrnPZSj9HIKZOv1cqp8rlSE5Arojvm/kckWf9dnA
fPqc9SnHfJrE+rRjPr3gtUaJyzUlqztV3F7vq/46n8u10C6fQ1vI3jdjezGJ
7kloY3uR7UnwZnv0Pt2rcJ/lSD3NFQhle3ke3dMwJnM4D+EkzUNoY3uskOYh
dLM9rU33NjSzPc6+X8G/HP1BcxWSWA426A/nIsiwHFSguQhCNC8hmtbBdnYu
TetAnH2PdaL5A2fY91iWVyDHvveyvIIWlptVLFeMWM4msFyZy3J2LcuV7Sy3
/WmOQxbLeTma+xDBcr6O5j4kCF8bbBVuQMcZfMp7zjZA0sKqnUlijeihI/z2
VnUjXBSovKYq24R6lxPb3e42wBm29yNpXoMA9QUkMZ9EsL1bTPcweLC9nE73
NFxMvNJC+OB7xXkdwoeCurFbCB/k79VKJHxYdX3IgvCBh0rnb8KHWmwvsz0N
PmyPs70OZmyPu9K9DrfYXOeznGe/L8A5theC2VwV2F64SfvGZDaHB7Rv/Mjm
sJ/2jdZsDvfZnKJpPclhOqdEWg9H2ZwsaD2w3/P+3+999nR/4Uj2e5833V94
lv3ep/3qpDbn02vNbh7cHne7O+X3ZVcP5Em0rNu1vwU75kHkhcvx6BV9/XmT
XC3+Ni7O9/sbgar282X5AurwiO71UfdyizC+eO6I9dJtqHu/4vFU0ULMauxT
++vSjq6t4xMIDqzk15GxIrg/O6qaCA7s5ZvkYkVwH1Z8O0dwYIeFgWUgwe1M
PjugIt0Gbq9zp3K4vaPfric4UMUz6M/h/k2gunpdh3XCSikN6WaiS8NhrjHB
g6of3RGcLv3caAeCB7FMF9MJmUzXfqoTltN+oZfiwj2GI0Fx4R7Dyaa4cJrh
RFFcOMZwPlFcGNflNeD84wPU7K7bovKwEW1XvdiZrJQCP6ePbw8wqMeyp0fn
PLoUC7uWXr7jNroR31yJ65zb3oC5e7ZsPmZ8DiQXrMn+MqUBSxxlXUjYg22Q
ghm5Byppdg6JBEfj0sio+6MbofBGoaAHwQk0dbhEeGBZ85dTToRXRXsYB8MZ
7vZbwzi4iOHmmo3OJvexRrR3t/ulWAx3f3KH05m2TGgMuY/bffef5nRKRRlc
JHyYtZfqekrxQIfiwQyKB9HsHsOBv5H0nibFgRLGk0F5YcaEnfEcTr/Mmp5D
RGeXeNgTDidUwvkbp1Nk7LxV53yfYp9YdF9CMPHb6EWh5pa5uP7967vZ0TXo
nuh/W0sjA+fd+7F88E0NfpSYsjIxuBZS287uv0zubXT8Y0HqoOn5qHLuXs7T
CyKkDjaFiWZz9+7dsbcm9fihoMmX1IMSw/1OeWAmw71BeUC8kNZdo/dAaAyt
W0bvwStWJ0LvgYR69Ptb7sXoUDnqg5lnGfadEsr1tC/EJQVmkhIexRj7zNtw
V2YJptaPrLU5UIJfVwdMF2ysQyP7e21j7jaj4Lcf3uQedDr87eVw1MQUc+Z7
FEOiaZyMF8HZ8Un6FLkHT70vxXA42SMiKsk9kP9bKM3hWDDeWVQHiDDeLqoD
ghlvBNUBJxlvN9UBSuyeMcUBX7kVn7l7RdOmzyc4cORUynHu3hGpN5WcjkF2
7xjFAcM36jHuJ1Iwsn7N4mdGNXhtrte8Fecz0GD041rz1ko81F15+YRPASpE
nd1pSr7fCcxbKiG+4QuGbqzMqyqrwy23q2yzF1Xham/xJLOhOvTpdYgV8S/H
IBf3s/vqG/BhT8616XfLsMtq+d+bG+txS8W8SZPmlaPiBMlD9f6tuNTnx6+n
RjWQs+vWbA+i46ezgBvhhbbAXxacjoqpIYsILxR0d6ZyOirEX0YSXlCQr7bg
dIyBH6mEF8Sr9mZzOqJ8Q08RXnA/8lNwEtGRaPl2gPBC07rbyZwOb1drjhd2
KasP63jD+t5J5wAarG8jOgdYwvrWoXOAQNY3D50DKLC+t9E5gB/r+zGdA7Sw
vt3oHOBf32wOYMd4fakOeMR4V1MdcIPxzqU6YAnjfUp1gBnjZfOHVMbLdEA0
422jOkCD8a6kOkD5z7PbmSZZoC5rVrgovxM7JhZcFin7AJLieUtPqHRhjtjP
1edXpsOSpNLW64e+YuoeuUXiSyphU7tN5ZNlbdgb0fA1QLQGPi56dUZIsBUN
ugKLCA4UdD1x5nCVq8fKEhy4zJdrzeEyHKhguCoUBwoZbiLFgQGGO85xaTGn
S9BmjAvBwxZLVw4PX95XukLw8J+uOoqH65iuMoqH8UzXEMXDX1cpjhDFhWcM
h+FCIcP5pzOX4agxnf0MJ4npzBHf+nXF1jrw3h9vHadK9mnfEzn5BrKHNGNC
339qxkQhU7W9D2qhyv/299PKNbhI2vT6oTvVIBr4+s3PZdVoO1VbN+9nNYR7
dwrwbqtFmdjZgyGvS7Aib7r+6cgWvJblVbVpZDkeiDsamRjShB6UB4oZrzPl
gaOM9+WBR4WEB3grM4d5h6Lc7hAeMCk7tZ3jvfRdo2/Etlowv+64muOdpaqy
j/DAgeMw+g3hnfVD7xXhgdjynhGbCe9D1lcZ5UNH1tcxyoeelA8FKB+2UT7U
o3x4mvKhMeXDMtYX6xN0WF9XaZ9QyHg8WZ+HGc8d1udQBeXxYn2qMx7GC7qM
5wzrczXjKaG88IDx7KO84OYQmef4qxzv8Dg7X/+vGkOjb3aVfSpFFS1D8Z8/
apA/cvJ51+ASnPiwetmq2CocJae9oexyK/4ap7wiI60IcxaIHrEm8/AI1Z0u
OK4QZzS0WxAc8I3ew3eL4Mpg1ySCA4mv1yqWE9y9CqXtK2OroCv4RQSH20Rx
YCzDdaQ4kM9wrzBd96hOUGS6XlOd8PcB1TX0blgnfGe6xlE8uMd0FVA8CGE4
lykuFDKclRQX5tF+oY3igiDD6WU6cxnOA6bTmTdKwTMkG+T3rsjZY9iOl8Ts
CmTeZoPrfydeRb9rRdv9wfETJdJA09/LWnFKO6Y4KDxQ+1ICO43Te2ziGlDY
WMxI+U0JTNgtv3/htzr0rik+tCSvCPq6Hy3OSqzHTZPPfCa4sKD37QqOZ7K+
ewjBhfQNX4o4ng55gWsEF/adGUCOp8Fmdi/Bhfwb44d5TFy01xBc8DnSWLOG
8MSIGgsRXFhU+aF4MeHpft3L4aOurdhKgo+u/tffcLo177pnE3ycPPn8dU73
mJ0Logk+1lF8LKT4qEfx8QTFx5cUH3sqhvFxB8PtpTygynDdKA8M7KC4UykP
5DDcJtbHfoZ7iPXRxHBDWB9yqVt+jpyWBxNMHpZNsWrBfpHyU/L8BXBGM2Rd
4pom3F9vd+Hm80yQif/tOCDVgg0bHrT1H6qFli1nG67LNOHUrWp8T23roWhQ
oslhfzM6CPlei/arhguzbjyV6qxDhZnLL5kKVoDftmz7CPK53D+35QvhgZTM
zDaON3YUjzLhAZfp+gc53r9wleOBmElVhzjeyO1LSwkPPJoY843jfT5UU0Z4
IHvqydEcb+X3wnuEBwIVLG5zvPI9dnaEB4T3btzB8Sb1+HN8KGbr3kr4ULws
YQ3XV1OutB7hw7r9kre4vjryVuwlfBhC+dCH8qEn5cN8yoeFlA/DKB/KUj7k
pXw4g/GkUF6oZzySlBfqGE8T5QVPxhPO+sxhPL6szwDGU8z67NOiPHKsT7GK
890mqWSffJWNWri8HkPcpZSNHOuQX/i1QsL5elz3bsGU15OrsCvNWjlQrwJL
PmmWemxswGrhJumslBpsO2fFd6i4HtWXhfCuOV6H+45L8aoeasAj60L8zF63
oMoVu6pyw0K0tNtysbyvAqUsM1SPEr9u2GuUduZuHoYYuQ7GET+Hnr9/+VJM
HvY7F/jw7KjFuW8G7mjxlmLduCtbp46sRt5tzQvHbylFH3HXsj9SNXhC2yGu
oqsIPdIdTm7f2Ih7fzieUPAk+/bv0tROrQIU0/QwOfaxGp0rfJxfZJWjwpnR
p+S2lqK2d/DGeOMk2Dlqv6Lfq3JMXqdbFyAaDl2R28edf1eOb++rxP7nHQMS
u1LiVp+rRpFbE96e3FGGZhd37XPc9wnNqgU37n5ZjefEj2/qeZ6Bkib2+/Y4
l6GUmHC0enYO6gzGaknuqcJvRhsm/zIowOW25n6CvTU4PnffZZhZgCuL3O/1
f6tF9zx1lRmjctDhfbRMzu5yvF4Fzlss8lF/oMczOq4Uy46fyWrcVITPPLfO
Tf1Zh29Tt8weWxSE7TtdDNZtrcWTNkGiOt3hON98UuEY01q82p/Rdf7QfXx1
tELlZl4tVi5yrtrrmoZZSptsitXI92aBS1fcvyThj+jAgMbdLbjl7LOPYsLJ
KDEqO0d1ajPKt6zOHHRKRZddf5VsWjPx+90d67uulqHbthDjA0I5qP7xz/bj
oV+w4kGeSLNKHro9SvrjRb7flrK/Q/jSv0uANvs7hCP9uwSs+Pd3CPp3CYhc
YfSW+Awio95PMSW+0/uxex7xGYh56ehxvptXfXIj8RlsDZi2hPNdutUpCeIz
mDxKq4XznX220E+l43WgE4qzOd9pUp/BSeY7dadmDeIzGHOlVbqC+G5WVMon
87t54DtGeSbnu7yCsh6rmDyokih4x/lu3LmiDXt5S0E973Ei57vAlL5DxGdQ
1zM2mfPdjcl1GpVdRaDHY7x8iPhObSCE8xkIvFs+7LtTYafkic9AbE/wH853
HjbnNYnP4BR/+JRA4rvwqs2Hub5VDR4P+RKfXRn8bcrNyUxuT4MD8VmsprA7
N6edSa+CydyA/5dWh8O+T9A3NGaqEfGdo+jWyt7nGeAk6zBrD/Fdwva/04jP
4M+dpG1axHe+LomWxGeQ4Xj26kLiO/61j/VUZhZAklfurNHEd+YGqrWzR+VA
YM7oF5zvtIrN/yM+A965q+d9Jr4reB11k/gMlNpMd8UQ3z0qXhg9vigI5u2P
q+N8t61Zv8OgOxwaVq9XViG+W3Kxju/eofvg67O3ayzxXYyQx7v9rmngL/DG
mfOd57fX2x59SYLJdZvzvxDfWQz9l0l8Br3P7jznfKdr4t1EfAbmNgl5nO9m
mdrXEx+BmCzfOs5XGk9EBjqvloH6Nb53nA/lLV2nE9/BgkIbIT3iQwN1OV3+
7fZ45u9lX7OBavTQfy75RsMGQuumn/gsWoFFZeu0Fhq+QL36yovL3SswluWa
OM05+D2B5loozTkoZ7mmTHMOSlmuVdCcg00s1zppzoEByzUd6jcwZLmmSHMO
FrFcW0ZzDnxZrkXTnAMhlmu/aM5B11aaayznQIPlmi/NOdjJcs2b5hwIsVyL
oDkHYizXbtGcg1iZya+1fUuwS2D9jhzFcNi85PCXP9cq0G1KSaLkz0gY/X6p
jwyZi17OAOgZvgAllmvCNOdAn+WaBc05+Dab5tp8mnNQxXJNl+Yc/PnMco3m
HJxmubaO5hwYsVyzpzkHiSzXdGnOgTLLNS+ac3CM5VonzTkwZrkmRnMOYlmu
vaM5B10jaa5l05yDbSzXvtGcg3Us1+bSnAP7FZpZ29qrUHzHuEdrPsaD4nPF
coveMjzTt7De1P89KJkGT2yyTkAdAaGC3w6F0KKhkzf5QQoqisu5Pb9TDNfK
Lv6FoFSsGTzFlyJVAMuYr+KpzwCZr/qpz0Cd+aqF+gzqmK/KqM+gn/lKjfoM
dJmvmM/AgPnqIPUZ3Kl7Peyr+NVOWcRnIFBkMeyr7v1vrxGfgaAL9dUJ6jOY
KUR9JUz3J6QxX/lQn4En85Um9RkUMl/93j3sM8hkvhKnPgNP5qOhxcO+Aq1s
6qMx1Fewi/nuGfUhHL5aE875SqJY9BTxGUhpx2/ifHV14zwL4jPgN/yyl/MV
WEQkcLkWHqO1l/NVxjLpWVyu7TmKw74Sd1e+SXwGT8U+Dfsqd6GOLvEZbNtk
NeyrcW05rlyuyb+fOewrp5ei6VyuSUxQE+B8ZRtydxrxGZyzbjrK+co2qL6Z
+AyMiy8mcr7a+fNbgiXJtc8v1ddzvnrnlDByH8k1y8iMq5yvuhp2+RKfwbTK
ZFfOVy+FTefPIbmm5zsplvOV0bGl83+TXLvFfNT3bNhXYMJ8pk99B1ISpxea
DlTDONFuW02SY6/lNrxJE60A8eM/XQR22YBB9pXhOaZfCm7ax+WYSsDJZJ5U
nL6iTFa5txQv6q6w2pvWgNMs+d86+gehDPUliuymPhX4WWosr1mCV0cIjIo9
9AwXOW7eQfBRTsg5OX+nDSYeULJUCsjF+B8yY50+FqJGee5IyYgMnNEVt7PC
pwCj7NwumnK5ama+WHe7PRxzWRz7zbwAvZV3i7+sSMU095xb0vmFOHOZ/p7Y
+gQMVN7R0TqjHM/O2rZn4qMsOLVc76d3aAkG88g1CYSnwxPF2Wf3mjai8T3f
R12O2WjYfzp6bHMbmvP7dg46J+InnvqSAPcOvN72OjH/ZiL5PdjuR7lPAcw6
vVp6IdGlm9NfdetjIdhLivVzuheMEk3N/pSNfG3SKV0349Cl0ElprE4uPhRf
vy1WIx03BHiW943NxGsTQ5ZD6UcU8hBOX9NbCoViFiM/kDlOcazf4ewfBH3T
X6zZR+Z4O+fwtUkPUiDJ8J6hP5njp3cjHJoPPYMyz9f1q8kcp2dOUhNJeA+6
+SluA6I56Dpvk2zIpXRwrm3YuuB+LvbsDXQ+HpwOm35+G9fdlIHbgi4ZZglE
493Vmg4vx5Qjtkg3rPoYj7v3vUvaSnLnxoTtowMSH4GhYe0oN5silH17puyc
yBvQfch3vyu0AKXkZeboVzrhCxd+keeqeWg460zJyzcJGOKycuy17EI8MlLV
3eBrLM5P5m1e4PsFu28plTeceo5S90KOdNUX4ff8u/7djtkww1hDhpt7qdjl
X2TOcLxu7ztu7kNNVXFkziAQOP8LN/fUj3d2G4flQmxwgkvZtkL4zv6/r4TQ
4f8PDFzrLobIz0uHR//188kG54Hj1l1zdAxC8USBgM4bqSzc9Dkgb9bMx7hr
+XazY7c/4XX2vTCffk+EkovUp2eobyGYl/pSjvoUBKdTX26mPgWB3U77ngak
4Lj4NyIL2z7BMh2e0PA/8ahiMXrUapdMmH/cZoXhQCpmjVNwlXr6GbSYT59R
38LLcp5ds8bmYumfmDnNeckQmhg5881AFordGamqcv0NmN1NDPMTyMBNcU+d
bcaRnzPfelIfQxrzrRL1MWgw3wZSH4MO8y3zMZxmvk2lPoYO1vdVOgeY9y7+
MNf39bMnzG8R3z08vDiA2yMTutb1kc8rtDnsK+Hm8Nc5MwqJ785pP3C7xpMJ
GgN/ZxbxZYB82dCLmgfZoBgzqeRl2Hs4tzroephuLkwulKoTXZwGWbLBKX5j
ymHR/r1za4nvtsz/oszljM/3/DKSO2g1ZnHgbZsiCJB7Necz8V3k2pFhTaEF
0CcSbOlAfKcqUpTzQDUP9IqnG6dVOGFkyu0By+xCUEs+GvWU+E5SNWqRuO8X
6Bp16vl54rvzepJ9tfVFcCfO3+sX8Z1rrurwXFTatgSQOYGyQGkoNxetPx+m
/ia+M4sPy+PmMk7/SjHnOxEJR9nMO0XI81hQXtJpLnhrX194flER9mvl+nTO
DMVLax5GTevLw3v9f65sznWDhrKuwcLZRRjv9+iHmkogJN+OdOMTTMGd2onH
HK4W4Mt+a9HZm9Mw0eHr/Ffk8xi575pR4aEUbKoPP/TA4yP26nWo2U3Oxxn7
27q7e3JwiTF6N/YW4dDoFZPvq+ehVrjYbJ6yfBwYXCLtZZ+PCt2/B7cUPIV1
exRXhll/wheLXp2fY+KK2mNXGs0QT8aud4En9be6Q0SWi+2p2miIW9td6V0S
ABVfjUZeevASlt1dNSdKORIE7HYlx2yMALfRRknPViTCtCfamWpCRXjhcJXA
45FpkPRwdNCYkAI88F/v7cu/oqDFY5Q4f18KLm/6oRCfHQE1SbMkdh7OxJCA
3732Vwtg/FCsBz/pu/j3sbjg+7nQe+HiZTHS9/Jn7rfjjNJB0d7cOof7O1qH
+a5vPTmwImhOI9e3SGr/1HvqeWD2LX5mE+n7ScCSYE/7fFBa4xHP9X2F97aR
t9InEBgpY7nhsSfyexfrNH3JBMk/7X7vr79BM5tlVjuMIkAn1apoT24urp4k
qxLwJBSvivC/2BGbCyI8NWlPugKxeGXGqqXihTA/NVTL+1QquCz4c2dUmTds
uhw7J8QS4e6pnSOnx7lhEG//rMg5+eDkXNNxbygbBFNeSRoaFcDZ7b2BJ199
hD0L18jKiibBEsO/MerKyRCbtMlmhWYylP7o/H520yfw0bzWljX5Hdyz5vXS
6f8I6Y9H8N+3ScYoeyu7yxuDcNRJE7v0uvcoMj5quveY++CcIxjS4JCGoQtT
z/hY30K9jxmnpxq7wD6+PLhpWwj5KdY7ksfn4/glycrTgyMwx/7qiOOXcvD9
TMU5apbBOG536w2vimz8nXYxY8o2F5h2teezc3EgOo0Yo2lV7Ys5+TufL+OJ
wpIttqITHCLQf9PvQGHT5xh/R0Rr66ZoPKYDhdNuv8dzG7oExLvjgK+nokz4
3StQeVszfe/fy7ji+7xHjr/DIDw4TNJ1zRs8tLw6i+dtCF4YPfAq39gTVg1e
iZ1vFIMfeOqfiI0PBbO/I4ZG5ZHcFV87es2XPOApvsW/+tsLVC68mfsoIQNK
mK/nUZ+D9GdFWcnzeRh4/nTtO+98KP5wNt7sTj7uvewrPCMjHnJ7Fwkqab3G
Hbx/g03TE2DVhMDSyLrXsNWM/5KmWSH0jMg+qqsdAVnte3hm/8iDTG2n7iNn
34PoNHfTbuFieEWf2MPO522at8JvVBGmXHshOvNYFHR83jCwfMF73JOX0bn1
Ujw+3f0zPvrqNcypv25XUGkPgWrqZyKSYtHfcOrYRKd0nKn96a9HUSRqLjSq
2ZWch34qET7Psu9guEPW+RVHkuGoROBFl+ZH4JnTUV8nFY1VY1YKj/aIgoyD
4fffuschv8GzR4uakuH+RUnzDvL5rJLQ6D19LBMiXc0eHD4VBcrxD48KJ74H
B++EqAuhSdh7KHoHr1I6mCg6qm+ZG4tDScZJW5LzoC+v+oAr0SHta78syDkX
QC1pbntUGJzZ71kWdfYjRArz/anBbDDwqBjzJL0QFIzHf1l1Mw5umvp4cnM3
CM8YS94DfK3z/CHXmA9hfccC28eS+W+XftRskQT6LqdPX8nKhWPV8y3TO4Jg
VnrMj/g9OZB26ceqUMGncHp1Zrz71k8gfyTyT6RrIFTtvvzo6+8m3HRpgil5
wsbuN4PR/3N+j9ZhHHvm0nPYdvgixGwuhS2RQUMJsu14ZlG+iM3kSuCZZPfz
5vUO3ETPQY/VDYkMn4Mtq1Nj9wzoz/E3/Tk60Z+jDjtn+HCVnTN88JPzyfng
0Ix6Pv425W8acTd9wlt2rsPOA+m/QxB7HmB1/weMjsjU
        "], 
        PolygonBox[CompressedData["
1:eJxNmHncV0UVh+cnyiYIsmirgrS6UCYZSwqikmUiiQpaArJEmoEZYODCq6VU
IgqIEcpSIShQsShgQCDEJigiCWKxyJYCr7EJr6jQeZznfnj/+H7mzL1zzpx9
5t7G3fte1+eklFJFKaUqMbYN9A90CTQMnBG4M9A9MDBwa+DkWPtwjH0Dvw08
EvhpoGfgnkCPQKdAq8A1gc8FHgp8NtAo0Nj1ZYFmgZ8EvhC4MPDNwL8D+wKT
A/cHvhH4sWu+6LrvBS5R38GBiwK9AxcEmgZ+pqwm8rUI3BC4JdAtcHegq894
993AZ5TxaeV9SprxW4EzAxcHvq5OXwr0Uqf2gdaBdq5rr+86B74duFaekrb0
dg/kn+SzkvwD9XcDY/DzwLzA8MB8/VU7cJo+7mRcerhXZ/e6VH2b6At89sfA
n5V5oT7k3V2BU0KB32jvRdrcRL5zAjUCNQO/CHw58JXAAynnSn99e3XgxkDL
wIOB27CvlP2N369QR/KkDTaXsm+gfx/oExgVuE/9ehlTnp+vTcj4fsoOu0a/
tzSmvP+aMSpiVdIfLdQTm48Zc+gO7n9V4Lg2XOoeTZXXyriwV1f3w87mgVMD
tVLO5ebSlyi/he+bu09t49dMupnrz9Tf7fV9a+fN1A3+IYE6gbqBXwfuCFQJ
4/rF+JfA31x7rT4mzrXifX116GD8emrrPfq8Rqw5T7tbansrdcC/yK+ecvx/
lXKfODnluq8avGe7d52gq6VcD72MH7VO7tyuHy/Wr8f0EWuWpVyHRTzItyJf
28p7XL2I4wZ9XzlOhVxyg9on6K315YKUa6TIlfaVfE290d/Iwzb6e03KNVTk
ZYdK8cNv5D/5OS6wxL2uVP7swL9S7lvYeJl2/T3lPjXCvb6j/LLAlMBqbbxc
u5bJB/+LKdfWDdp+tesWp5yLN2oj+6PHqpT7QSdtYR/2W5dyj8C2YYHHiGsp
x7FRyj15TOCpwKmlnBvUHLU3KeV+fFop5xW9iR4yMzArcHop5wB50k+d0fcH
6n5Tyn3idymfGV3cr7HxXawd12nTzSn3iydT7gfd1OMC47tK+zpq6w9T7pl/
SrnHdVe/hsZ3nXZfrw9+lHId/DXl2ump3jXSif72dso9nv711ZT7Gbn/Tso9
m9o7JeVa5Gz7T8pnCOfj51M+I6nXXSn3avrr6Sn3WGQh89zAL7XzDynnPP44
R/+01Vdtnd/u2EU/sjc6VA3cqz0zUq4F/NRUv12RTvTfPr7r47NR6orOZwUG
GKdHU64R/HeG/mynb9s5v9Oxu37HNmysFxhkPJ5JuXbwa039fFU60Yf6+a6f
z4gHfaC/dt8iTS8dpm7k00P6mnsIfeBu7esqTS8bo2/JpweMJWcSfWCgdtwq
Tc+bpM7k0xBjxtnYJuV+ib49pOmxM/U5+fRJbyzlvvy2+61Meb+a8fzplHOH
dW+lvK5uPH8+5dzBnkUp21Mtnj+ecu6gx+sp61E7nj8b4wrl3+a4wr3o5eTW
ue5JbpFXG933DseN6kDPJoeqqgs5RP4sVJ++jgvVrap3v7PUcYB5slY973Jc
q861vFPUU/dB5gMx7GIc6T/k8gDj+6jvB/i8oB92/0bynC3/Y/KhKz4b4Yic
ofJVM0/IpRflG+oaeMcGlgb+GXgi5bvWSOUMlR5ZSTZ9c6Tv6Ln093mOI+Qf
rM8Wum6YfCOUNVxdNmnDK4HnAq+mnLPdUs5b+jA1SizHGM8nnY+qRD9o/M+X
5zz5n5KPXCEHxzkiZ7R8Na0LamexfKNdA+/6wBuBFwIT9Nd45YyWHl9JNufH
eN9xhi3Rt0tcAz9nKDm7wnVj5BunrLHqjj7bUj4TkbE85Rql51CnnEf0HnKL
+n3G94N8XtDkIfnYQJ768k+Wj9yltqY4ImeifLXtA/SKVfJNdA28/wjUK+Vz
eJpxnKqcidJTK8nmHJ3qO87m1cZ/tWvgL0u5hta6bpJ8U5TFGs6/Be79v5Rz
h/3pSfRS+hLnMj2V2qZfzfD9vT4vaPoA/aC6PNXknyUfvYNeNdsROdPlq2vf
ozeuk2+6a+BtUMp3kdcCc1POoznKmS49p5Js7hNzfMddhzvVG46z5eeORQ/b
6LqZ8s1WFmvWuDfn/gZlvJlyzVF73E9ukqYGixoe7khtc7+b77MnXDPfmG+W
b5PzBb7vJN1RGfOcz1fG3pTzrqOxozfRF+gVgx1HSPOtuMiR+wVnBfWwPeX6
2KK8zT6nXrhH3SzNmqL2xjpSk8ecT0gneh8j9bUj8J57LNdPxT19mfPL5GFe
v5R5t0pvko+eQj1T4/c5jpPmG2GlI/cszswPU863nYFDytqqn/BXUXurnBc1
85wjtcT9+lWfTXMNc3KP/wrvplwrzNf4vrP09cp4xTnrDwT2qBfvG9gLqENq
s8xxijTfd687cu/bJR/8RW2sc17k9AuO5Ppx59RJ0XcZ39Q/HwSOOifOxffQ
BueXy8O8YSnz/ld6m3zUKnVC7dzvOFuafxFvOXLP5c6yO+X8LvJ+t37hbkA+
cv/tLb3I2JMD5Mlm6ZekGbdIUwvVjfERY/5x4P3A4ZRzkLyakHJOsoa13HnI
F+7pvaRXats2/bBd+mV5t0tvVx5nDT7BNxXKXeqe5Mf+lPOmQv+hzxDjWcf4
7jLWc43NUfUnRh+lfNfCf1X05zv6FvsPppxX7POae+3Vt/Mdt7im3PWHnJPD
+/ThXv24W3qLupar+0H9uUfb39P+rdI7lIXN0xzfVa99PuPc4b/cAZ/tUSbr
qAfW7vQ96+hpu113QL0PVrK7XH7mL/n+kDQ1f9j35e7xvn4tNwcq9PFhY3NE
OyqUc8S1O4x5hYAm5h/Id1Q5Hxovnq33+VzH9b5nzvnykfOdYr+8+9W1iP/H
6rdfmjX876D3HRPQ9GP+a1B7xwU0/YD/F5wBn/zEKmWac4n/FGUp9zoATf+j
LvgvV3yzMjInD/lnU3yzMjKnfvk/W3yzMjInz/nPVHyzMjLnzs0dvPhOrOr/
A+hqfhs8Ls3dmvykvjkjR0qTq9xNuasW3781/N8AXdNvmKeluYOSt9QrZ9l4
6Qkp3+G40xXfm7X8PwFd22+PZ6W5q5G75DJnx1Rp8pu7Dnef4ju6jv8zoOv6
jfS89AzjTy7Qw+dIkx/kOrlPj5wsTT3Q/8hr8nup9HJzg/qh/mdJk1P0LfL0
ZfMPmt72f6+k988=
         "]]]}], {192., -188.99999999999997}, 
     ImageScaled[{0.5, 0.5}], {360., 359.99999999999994}], InsetBox[
     GraphicsBox[
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       GraphicsComplexBox[CompressedData["
1:eJw9mnc81f/7/6NsRaWSiFAaRqSh0pVQSWhYDQklSWaJSihKNKxKNMys7D0v
e6+Dg2OejWM1RMn4+vzy/vnndfN6vTyfj/t1Hs9rnJst5nbnrrMvW7Zsy4pl
y/53lVj2v59v8Co8lAhO7w9fJB4omsmfAA1mDSk2uASifzryPu4fh/tXMmf5
+1pgSPvLnTDbMQjjh/y8zSTozzqnZOo4AlUuXdXlTmS4z3E7vfrnELz7q6vV
zU0Hm7x68/oFBtwXO9QurDoIH/aFFaZ9ocJlsS+x8ctYUHZtYKzxTx/U2HIX
0DRH4aOSpUqwSgd8yxP32c0+DrpcGXsvxzeALHOmb1ZhAgwtSINmrfnQOrcx
dbh1Amzkn2xy9jE9snmJ48g/3fgfh/M/3fgfx9t/upG1xFH2TzeSlzje/NON
D5c4lnTjfxyX/unGd0scdf90Y+4Sx49/uvH1Eof8P924e4mj459ulFviWNKN
Lf4fhf/HsaQbl+L/n270WOJYij+GL3H0/tONdUscd//pxpAljlv/dKP7EseS
bvyPI/+fbvyPY0k3/seh9E83/seh+083LsUflX7mbFnUXfwfx9El3/zHYb/k
my9LHM+XfDO6xFGy5BvmEseLJd+4L3HYLvnGZYlDZ8k3iUsc+Uu+mVziIC/5
ZmSJY/OSb3S5/3HULfmGYPmPI39/Ppn4MBrLGJbRvgdG0N5Nr49XaQTSQiTS
H76NQdlahSvOe0bwntclC43QGJAIvxr9qyYGtvsfDJZTGYHVb51U2qgVuE1f
IalKexRLfxmI15wahSeH7rbOClYiUWofIeX0KJ7V3iJ6W7gStCKbaCc3VEL7
miTJyrOjwMs+kL9PuxavJfAZ7Zmm4fD9+M62eRr0Tf5QMl9ehztNz+hvW03H
PbdvlH5/Xgepl13urLpcB+baUq092+kwUhRLrb5QhZPc07tM4gYxSepcfXzc
IMg+WeliQKjC77/7smWTBlEmm7hD+ncVxFidHekcqQK/nbsj6gsGwfqQ8w5i
9GdM7f/Iv0CnopG31fE1iu1o3NkZPF84iByx1LDSdioc0VGd3dEYhVOd14ul
ygfhxNFjMXixHc/8ek+riaNi+q3mrAzNKPjYy0riIAyiFadUxzfDdhjfRGa/
MhQFPSunCZFNVKBTNlvnn26Hu3o3jr/tGQRhit7PbtkiZDFq9z+opCHBrzGg
aBUBCZ40v3idETy2sMvmQDkNPHdtS0nvK0YZuYIDK/VGICtEmqt4KwFlJraZ
qSfQMFHz+Qa+nwi3iFFy3udH0Pi3+rciGQI4yBqP9CHCG46B6/K1NBD8crj6
uDQBzJqlG8QujMDAyq9nPt4uw2v8f7YdHupDpdlAY/2V/aAa3m3UXF2OJloh
XxLU+1HQu+PziHMNKHOoSn4srQbxq8sW9j3vB/uKNb9+LatC0Y9fnL7eo2Bi
ZRdX4RMKuOn+GjKbr8IHscdu3A2loL3oFr/ZwBpgK1o90KBSA2/GZ/Ir8ynA
OfkqxMCbiDmxmrSquAGcPaPD/2VoAAYPEc2Guol4KbpmOvgYGTmkXp6tVyOC
2qeHV05LEMGH7e2nBkMy/PjV89MttAUHRbY1KhykookY/51Xhp1ocbDixc02
GvoU/ci/dpoKynY+Jr6/W1CBWZgFNBr82FhCJ7/uxJt32fxa/Kgo1DxkabqJ
AJr3Gji3L6dj2NilvuRrnTD3w/CS9N8WqCnfyv4rggpVBObniTOdcLz/28W1
a+igmCRuoq6fC9VXWMq2FqPIdyBxud/FUXDtyYzo+pMDHMqh8bNXRjHmN0dx
M3cujrPCEm8P5WBUvJ2ereko9DuLaT1oJoIx1eqwxRMmumnMn14b1okSN+WD
pz6wMBueVDXQejE3eu25txmDqPd4Ty7fFSb8NS35ey2TCEGDjHXFn1lwTm9h
uudrJ1aMrKncmD8Ije0VMq5/e1H48lH2dQ+YGCke+8k5hYitGnkuOjEsfDCR
FvM2rhMkdjtaXSofxNiU2jdbB3vh04PHxZRIIooodJ/OsmKCkdIRy1PRneDS
W5vWG88CX/9S2aMDvSDtzPw6WDsIzHOu2qrtLbj9RMRRaT4Gvni7w7tCn4pn
TtH5o09QUMBzXVibEAMy9q7d2rqRgL2cXC/2GFFggGGxap05FeW5jZ075RkY
VXLLr2kHAaz7LhWHGlIwj6Ec1KRKBYbh9Cr1DQTYwXGd4+hRBlR0z1ka7qPC
9a/20xvNKJCkliOn/SkPzt/lqHs7NYjpm0KqJciDcGW9hnBgTi6UXtEJ9mcN
omS8G8+TX7mos0AIfhqci4KqMubio4PQvO73fpUtraDVmKZb1s1CwzOR/l5V
A9Al3bWPb5CJFXMG0n31LJD0nvG+JdAKt91e3zduZkJU2esHE+UDMD4ZIvSk
g4UrusR5Vq9uxdfdamMrKEx86fNwpV7mAG4I4B4o4m5FtUz2jAMEFoQVlHHG
5w6g62X1kZvtTEi6o9vAovTjHUutW7P1NFzPJfK1P6IXXQMbh1o+kHEkotnz
pwUV14Z7DGwIYaDaR9U6w8f9qJVukrFbvgPJ43LUYg8ybt1/6PPgrR7sOxz2
/d3Nbiznkg6VuN6N6rLx78Mc2jDgOeeTUw+68PX6Y2sW44edG9n8Om8TUc1c
fZ+mEBklU9JhP6kEm6IYhf4/aej+aHSmeXcdipc+ztLxGsBPkt9Nona1oOim
iO6N50m44/rB6xs5a/D63bykPyQa3K/zcCeuGMCjP7ZP2maR4cMBf2p6ey/2
6myrkvzMgNPFxjYLt6j4y7ouUMS9A3SUEioux/XjiNXhxJLoHpgdYfeIDiIj
I8n9jkJuNxzzfftkQ1w3bhL5KXzxexcE7DEd2Uttw2qFhWLJL0Q4mJ1GkVGn
4t3X4boc4qXw4DDL3XQNGfd/3sHr7l8HhE158vbzNJy8FnLD5mELZDmlCSoG
DWAsdS4yaUctKPLxHeKXI+E9hxmMZNLwilaMyLPafpC/0+HkWk3GYa/S7kuG
vZCdbdvYGclAQ7Ukd0ETKvT/eo6xMh04fZj0dnl/H+hK+aQ/fN6DehLfb4Vr
k8FB5462TX437nlZTU34RALRrR/9DO6R0ContMVluAX8by8XYlwk4h3abPwd
Hip8f+22n/sN4tz9xP0R/GRYTT1vqtdQi9ddWA/vUGjAtMpKtU9vxid+J5q2
cgyAze+nu6P2V6HtqYJ1XEldsMxn7qZ8QT+0cPBKW3yngelshJH/0V74Qwhh
jHWSYbupg6fdBSr8TjvivTOOAe5nhpN/lPSBk4uBNt20AzzPLwiXABkozeMx
Kck9YKQ1cizzGWmxTrO2XR3phr3bbanlGS3gxz3u2vmKBObmpJdr/1DghJJJ
7g93IhTVGMx+DR8As5ZkoScEBBdvunt9HQ0EhMyfbf5dC7ap96d7G/phIrfc
cGJjC8gcGXRtONwFpH3V7zLeVkNXGP3E7neNqD/y+lb01n78SFp3nNuKhmV/
Bar8B5LRee6jtsXcAA4RtG/aJb/AIWdhkXWfSbiwsrJUOTwd4Ucf03MTGfsD
H6SX2eUDzV/JJD+ChMKuCc41njFAvDMR++DHICYqdj1jCTcgryCXitx1Fi6X
Pbd20/sq9NX0WhG1rQwbSMbXtR414Vd9snuEZT9MSuWJrI5qQhE4VBV7PBUc
FpadU31CwyCxWP3lV/xASPBs63tVMur4ClhkXUoFuHVgJY9PFxZa575aWZSF
5N282oRWMjoVejkcbknBN619ubeP9aDogH+Q7YUGcOnUrPg9M4jGfXD0TG0V
qH/ZU+xyi4WXfoikphxpgbOyueNM3kq0MdrCzilGRrFv4zZvu5vBaFp35tWW
JIyOYBsZd6bB0GebKwXhnhhRGBifcIAMzWKaecvsEjGmyFCCMUmCo3fDTX6k
5sGfoh8qPhfIkDZ5PMPqTQz00mcOut3qgXYOuXDWWD3Kle/g+DE8CDkt2R+q
3Krw8c0ESUVzFsS2aXHvsGuGu0YB0tL7yDBx7moel/nieV/Lzt3IngT2J3eK
CEmQQcEw+ONjLkswuWcR/GxVF3ifLhVnk42D2WekNFYzGWavPrHYKp+LnfD0
APFoD8gF6++Uc8vAc+8bBJ37B2FDn+6wKmcDxLrwf0u+yAKGaYWq8YsqcF5f
vMnyKhGPXm4tflFXDancojKW7Yv19O3j3HMiNejNO5q/gbbYZxYECdjJdmKr
zmuFg9YEdI1/8Yyq2Ywuq2NbzWOqsfy6/PstHoVYddsjS2h/KtxzXyFpuakF
Sz8Ktokp1cD7oV6abecoepG6HxZ+6AT/nYIlf8OqUUymydQ4uQUCnX+Kn6AT
8JhuwNOq8go4sPOgqdzVOlwjt+Wnsl8lrOpdtt5vdzvcvrf++8zKGpwoI45T
W0fhV5zetj+ZTYtz34dkNc1IGPhq+u508ygMNq54p7GuBnKt94cN7kpFS/ax
mXZiNXg2UX+dmGnFIIe9zwY+BuD2q19q3DgrsfHKwOmLmUkgVPnL5NhoGybq
u31TWlWCu0ylEuIwGq5a/k49vCIJB3+dJZqsLYeUz7vyL5m0obz4C38xw1y8
O8JbscuxDSTqTigUqjeiGbHT4Cl7E6iLDp4Utv0CqZNVx/WftsHM3ZdrtMLa
MKiSuN7rQwGsOBF/qpKchqEFFyNsh2OwW+NKX2VGJEZv6bbV3VWJL9dve/Vq
7ilWexl2cJ1Ogp2Zfb+EI4tg8oZ2o+ZoDDSwUvd8eJEJ8z+v/LENKEePF3ef
5AxXQpOTp3a+Yhbi2etXKLXVcCnHv6GXVQoiXQEyxVdb4YlWslvmuxK4LxK6
/8WtFgg/Jscnx9MMfqdXR0l/KIO0WQ9Pj/RG4HR9w/FwMA1qo0h3n5tWgISi
9vn3wuE4ZpnSxC3CxNkxm0lPfiZ4Z2Y/IxVG4jRPisuN5UwMXpW7XzwvEtpO
BygekYuCfvN9n23XMYHw7fOfi7OkxfPsohk7MIyzJg98c1uGQVxg7za+nySY
7BRMnOsZxnphPt/TEyTUD3/qvH6UhBK9wtI97cNg/npk5dFzDJwSAK9fMTQc
Gw3IfRFFQ+HgqRf3tXswS7Twygd5EhpECn6Tft6GHuHv/RS+0mAtl87pGCMG
1g/E9sU59oBeoOuYVwoNm3rWM7u526HgUVpf19XFv8splrqbSMPlr06K/9Zi
QPJZ2R2zZ3vwm6rNnx9eNBgVin84rd+GwhNTMvQ1XbCatWZj7XEGLB9tWpOS
QoNcRbVVAfdpEDCfJvrdugcEMGdd3uJ5zXdTy1iX3gYm5ykxMbEkjBs8Jrx/
rgyY5kn73YhxqOjwrnjzYh9x3bb0sRl3KQgaHAl4urwbBKLX9h3wawONtXJT
rFPpGDCTKygv0IrFG8d26oox8RY+uFC1rw3rk+1/66TTcWj1jicLKzvQ/8bO
bP+VTJS4RA15ojyGdpnljx23d8Map+Kdr/hG8UWYLN/lfZ3wY1o4pXBxLlXe
teIBQbkbombETz0eWJzrBTSndjm3gdXXQzKOszTc4eEdr+lBAKOzXOYDfDQ0
2uTAo53VBjtc+bQTsofQXa+6vUSoFw3zKpadz2ZifVP21fr4blyeO5Ms+moI
c5bbrzK83IUBYetPRcaT0fCCB+H7Ozr6OkfuYWUv9mHH8z/IpDJRZzDl/JvV
/Xjm0vMPaw8xkKodHnLOvA3GBZ5vq5mgQ7GnKzXHigC15Z9GOQTpcK/QjC4T
1gZveXtkgjbToF4iJ31yjoqMlClcaVELf+zCqExROk7alPCr61WBdEzqEbe7
VGR+Ozn+Q7MCJox4vreqjCKBFndNN46I8RZ3R29wjWG/hbhXBo2AHju4ej8f
GMf7A+Lu93iJGJq4cntIDxnvW2hNCS3O7TNvP0d6tfchdXQWXBRYqORJiZX7
uvg8+cfjDawhPP528LBDaSiqncsYPGA9DAzh5uGF0Ei8WxLoKcEcgXiVw1oF
97MwpzQw1+U+Czb2pY58FM7EDZs1gqWJY+hmcNZzY2Ux3iNbcewljKDF5eib
Gy6W4hZ+4VepCWMYpF7spLC+Ha0dOGUoB2thL7PbiHGsHQMfN1Zs617shyrv
dz+aJ6LxqkrCjg91oD44E+hrNgwbRGUIt4+GgUSLtqsBeQQMuKWuy5dFQsP8
U6UiRxb4N1iHxb7Jgum8OZ7ungT82pBumzs5gfcanYiKB33QfOHwJ23KGN5d
vu0D/UwjpiRKfN1DHMbbdtOBd+1a8LDpYH8YbRC7H7JzxB1vxQ/BMkbbbg4j
9YbZbvZrw+gU+607PDQMCaK35Gm0EUzZK/VwmhqJZ97KmB9xZWH89/j08OQs
FPznXyj4519US5IkErlHIeuItu6j/Z1oHZQhL7d3BPx/jsRXqXSj2LKLpTsO
1mDBwWu2+G4Mu0c5ZsTXVmITz4rne/wnsIDZQ7nbWI38jly5JDIVv06xC5/0
qkeT44nN7wso2C6iqhr6tgEru4/t9dhPQ6kX15+kFNOh7IXZnZMubeigwZte
00WDv1Oec5U2BEy0uPn4eRcVjlZYefsR2jA+5NmXp/QKHNs9cSZrPR2rhirZ
UvXLkG2qINTpFRVHLrh9DVcYx5mv3K+UevPxyikHOyJjDE8aKWcSVsRhSbUR
Z/74BDqbv036/DEV1w9UMXa3j+GRiMpV5kaZkLz0OaT9+1ygWu0EcaF/DEsL
DxmIDz0HkZP2b7cu+sLgTtKnANdS6G2eWCP5fgzraXVdFIMaaFiKQ/O/uICh
y8ZTR+LHYHpugRngXIpl/tcFtdrGgP74Jturc5lYZq+bLNQ8AhElFDFBFcRo
r9re0Nl8SMndetNHcRx3si++dzMOIlpvGR4eGsMr/3TDfxwRQ2zW0n3DaLlt
5e7T0Y2QZLQy2m1yENe3dXzYH9cC19S+GBc6DeMNqzQ1q1utsC3qlwpRcQzX
b7lLt2U0w5caFRW2klGM+PQtyG0xH5UdvHnbJH4cf2vfk+s+0woqTUnGqxfn
jdMkaw2njTRo+RAhSZauAgPDv0eG9i3mB5XXTfFcFSCvoiHeE0KFaY8hW4++
MXAW9v+QyOGLISfNxmTpY/C0g01hYSYW9D429h+XG4dXKqeFVnfkw7n6do5F
DqhQ9x79H5fMqvscO1SYmEG5o7pSqxUyphX5y3Yx0ez+8KZJxQ74Ly8s5QnQ
HnlHtN7LQonb300/d/WBzZsT3FHfhjCNS56DM5EM5Yqyco8FyWgTfWNnzvp0
vLNf+ph0Yy/aNTtG3PiVh8m7w/SWd/Xi72eu1FiLL2h/Nby6hRmLn+YfHlo1
OAbWSz5Zije8TdNJ727MRyuacM09hXG4oL4v+rMQFcuN1M0ndRbjf+zB9h+W
NByZ15oVHGqEa/zrglKTGyF+bjt6PqLBXlcNNVW2RiCr1Av6y1Nhl4xLQavJ
MBxjm//JHMpHsVJrOj2GBcoJPQmEzZXY+cqKqvq0DrVVL5wpzR5B3bJVR+bq
mjGxxktjQWEMT5wx/cSIp6OYZGDMp8+L85LJ34OpRUz8wS3AFZVOBns26rez
5xm4Pn3yAo2nH/oc/faJbMnHbEmfmVHzYVx25DS7Q1cFijgXkHViWZhD/aii
ZtSF27928B54MgS5CZ23vdb04k/fpouKSUPQJGKxy39xrn1z9UX5lhgmrMk5
fed9ywhaHTjq+vE0QqXVJmc3mza8L9pq/Khw9D8f4X++cluqk5uX8k5en6kS
KHcCt+mYk+SqUTBfbtX7XbEbPMZNwu4dGgHLf3UBHi/ViROZx5Q+pBAhe3eB
Yt2hUbymFro5kkUAZ4LEnX08Y3gt9O9yns0EnKuy+UCvpyHTat/BcK82VMv/
uP5bJRWFuuV9rwZSYXdHlK+KRjk+NEo9NT5Mha8LCVKB4TV40mYqiCRChzfO
uic7YyvRh9+L/WZ5N6Cl/YOmxbiu3DbyZbd9F2x/91slNmgIq33k/LSkF+fs
MD8PyYIhpKhcHti5gQnVs0WvQ4904LXHiqoWW5kwk1z55OLJVqy1/rBaFBvB
ZW2dpHwHHfhKzvoXCTSDI9F5hfBOJqjJSdnrzNYAW9WekUlFBmyX7Tr/SSYH
Zv/uVRfmYQDHxq1ahiGlIGRfJ2RhzYBHjocMtuzNhdHn3iX9YoPgsCGDsi2H
Ca1+Z21vlZDx52o3j9+aDDh/XnqSrNiPBstWn62PpIPbHrbJF4t9wbahGaWV
Jp8gIvsXzc12GAVkPWQOxEXBpr8bBcyGR/DcJM32j0w2iL3tnnX0YOHXTLnZ
ekUWmGRVbGvs78MUG4+Aq2NDMCds1roubfGc/TufkL5Uxzv+NphsG1qcy0qS
Hec/t+C4wQEfIZthsHF6mj9v1Yp8tuxu7R3D8PN2g8ib943ouGH12fAJOprE
8NltFcmBwyb3s5T1GTi+N6FaIbYUdKNKfofxD+KpCa0XLIVc8JlKxHNxdEjP
axVo/9CIluOOugd4mCCV6+2SMNeELZzOog5CDFhRUfXsR2kNlvzLz3Bq/F/d
unT1wqPYd2OgcSyH4965GixMELVbzP8Qd5H7BWmxLhvaOOddmWtA1SS3pLuf
6ej8qE2V6dKEPlNph1Yu9uHfj92XHRetwUOFpY2GggxMbSHMHTqRhUVlp8ct
+RjYpjqwAeNKMFfW84DuBQYWXtrEHlucjUlZr+VYwoO42/CrqGloI2TtcU4Z
YQyDU/LF19afWqAg/GV24LIh4L6l9UXheivonTgfq/lwGPoflB8yWs4AD1mx
w4FV2WhRZfIu1IgB7keIEjyGpaiZu6N+Zs0guLTwWPWRc1D/UASXe9Eo1H7X
Pj7k3Iap/84h2J7+dy45DyXNye4eg0rB50IO1Gb86FHBfaKMjtrHSYdSBxth
V+sTPf2NTJxWCyFIyTXD+G2zUC9RBp5PnhrT21QLPh+tBm+r0+BxxMo2Tv1G
jOo+r/WxgQJvOutPVps3YP9Pf899+jVgP9bczwwbA9ZSXVyqk+CEU6/WPSiF
8Fe3TH58HYMrT7pFFHQR4licXyo6RiA20fCbweVMEOf3DunuGIN8buOoiaI6
sMPkmgwcAbNj2hq7aM1wS+d+XdBiPumykdtRZ+QL065sIz7kMRhcquNL/RUE
ft2aVpU3gudjGZIuZXXA56Z61s1kGNcxBFRPrSiA4N1BRwriWDi9Lrkxf2cl
rHew2+YsWACHDC5nSFkNA+elkei07ZUw/z730YtUFnjJRZkokAl4cKFQOZlj
DOyX+tilfAU5P75EX40honh/wFzOvlGwP7vdO/AjE0pkGHtrcroh+/CIwfDD
IfCp+drdZdYFw+6aH67HDcH9TdIG+pt64RCfObV4rg+4M7+MRV5mwI0UUR2e
UDLImnhfUUmnw8jaPOeBZDK0jYm2OZQzQdG8R1/1ER0Vi2UCnJfT4X26eN9J
SQYeu/EmWS+cAYKrCQ+9A5iot9x/+MgGOpQE9KkH3mkDF7b54Tdlo8D5zxdQ
suSTVXmlakVS//uejdxx+AATTlmvPsk82ApUS77wFyeY8ERxa6aDGx3ytpqJ
/llDx426QsGULQzwdz0ZXhTLwKFTr3dH+DOh7K+fludmOorOp8TKx5Oh5+rq
GL+fQ/BpqY4v1XUISZrZGETsgxVnHkooHGABhy6vt+vyMYj2GT9ZRiXA0rwA
d5bqgplwppWx8ihIcXlCbRwRVke7F13lp2NuZa66qzMdr+R9pN6OZmDVmaiV
dzczMG7m4vC8CB1vx6MgvGQi3amn9/fCon/LXj8We0IHxf2C9199YoDb8bUq
mdIMeFC265LnOjoohJY9mQ1iwtKc9//nvoMLrzcfkuvEBsu/QZ+4RvGDWZO5
g0I3ehc6nPlfnzJ8pPsQJXsEnEYb5F7n1uEbkYOZjyUi8avpmTvqMIT2whYr
C9xL8OKp3ZNv9lBw9gljld71PLS9puSnrUbFXLmSj6d1OlCO3HVO9eIwXlhb
GqhR046+4/dndjBZaFHnWhqpPARb2HKlk9mjMWd7XU6jCgXeHk9PnQ0txTOi
j4oKjlBBtOPWNpvbBXheyfu4w5VhkOwvDD1v1YGj7OtOfh5iQVzPZFd7bzs6
3TZ2h71DuHn1sd4F3mgwj2teRRCiYP2ptrnVCeXwg6tep5eXiqfPXxst5imC
bRHlJT8sh/GTskqjtHkHUFVURk6Os3DZgD2vVU87kMITyeqXomHIWq+4BIbg
z/Cl+Dn1cjgoEuNefpgCV4T9U/bnF8Lax9vqzPZQIbVHcjTsUgdE3JhJ7r89
DObKe8MEOtvhbde6EqefLDAW7Ito2FIOjM3T5RMDDIxuOB5tsb4EODm/3yW0
0tBPKfq+t3wW3K92W5Z8m4E5C9SqrGka3kwPnTE9FAm/2kQ/90jQ0JXL1e3O
uQxIvXDtZWQsDYYMjXvaw4phHW/GZpIeA45VPtFb1p8B5wrpRwhFDMjK6N8h
GFgGVxS4dpFpH3Hspm3ZFTE6Tpuc4ejoTkXRN128JVdomB206ajaJQaOaXHE
d+hl4iNbN+WNrQwsD6jfNlxbhk1HjfiHK2horfe75I8zoqNbdunF1kgYXfO8
++gaOvyul70fpp0Bq5RCv+/RpIHxuTp+cbcy3PvwU8WaZgas93sToHWvGLf+
PuHIX06D1fmGbj55GTjU2/VX6SoDhCNWyDmspIPtr1w3NIzEY1xlT18a0EDk
ptgGWnY6fs+ZVfGOSkSTgqzC0EkKXnrX/JTKasbIH62HKbFk1G4KP/grvxZt
wz54p10l4yv6HTPPIQqIHqGWkTlT8Y/Npu1UJIPpm+UZ3yxaMOEUx1vLu2SY
TxidJpbXYf9n0nhmJAXd47yiUwdSwLJx29YLWyho/PtUt0JYC9xeH9V1qo6M
2Zx/N1KwAWyffuc5uD4VdtePBom2U8BgNDlO36EFkqLySgYWfSyg7pmvqN8A
+xb2rfrOJMPBvGXn7m/oRGZ7n8ueRyS89iDsfpFMB97Ld9AyjCOi4N3muCOL
98nD174ZLr63+7vdn723qBjGdy61PnEQ3dkzBr5TSDCg0T+y7EYnxnOFOi/b
2wFm2iLLox52IG9L/p5N7p0wx+Rj6ywm4QH777VKKYPQLeWZNWFHxeDlOg1a
8yQ0LOzbpbBAhGMCitGCi/uead8kqhPTDuuPqrLRT3Wimher/5RRFzi/aImU
SR9EvRbV0zdvUkHQR11Xn0WEPrF9h+z2dMMyAb4bt2vb4WJCSUXNJBEYu298
kdbsAqtlYpknn3bCzrorVX43qHA8rT2eK2sQNp5zD9wlVYExdr9L5AXIqHDg
gnwwbzW2z+Ul7MrsQ3mmz6tynjb0q5O1gl0UHP9a9r75QQde35KVOBZCwYe/
NhSpUftwzURfg60lFdnYC57lzfRg6FRs+RcWDX9cUrfeur8bXypL/RbjoWLp
l9x36z+TsGz+5Jhl8DAq/K3z995Mhqoav/YKnUqsbSTOyYz2QW6YzdYR7RoU
0ZzdJqJBgRfmgkMrLdvQ8uDP6PEUCkwd3cItUtGBEwtziQddqBDP+fWtN38/
TtWPS/T/oUHKyrfyJOletJwrm3XbTIVVWiJKDnbdeJN6cswoZBgy9j8WLMkg
oUtSTMvYfjI2xR2mHhipBqvcmqqP8/2YIsTrcOROAzg+W7bVIZyChavD2Z10
2mBl+YTrbioFV70nP6u/3wEhkXv92X2oeMDT7PL64j64eo3yMG6xXuxN+vJF
abAHsDrn1ewRKjZ+KWj7u7obblodKkj8PIzClo+eLSSSYOLzcudCm2pY4as/
tdyEDK0JYnwC3+rBK9U4QHnvAKzZdjApY2cb8PMoXRbOogDPPu7APtMOkGq2
afo4SQGPfbvOGnztg87cwN4db6jgvfXzrU2dPcDjy+fZKUyHsnlmJt8sCXb9
Pir1TpcK/J69F0y+kMBrvI5PIGYYkoWes2XW1YPOYNvK9g9jaHP5YcKtZ5Ww
mxhxbO2fMWzaPK1yd18tyJaQhj1NJ/DoTOzqDnovePGKGD9xYuHP/ZFicyfI
MPW1ke+L0TBuNxEPvr3Y/wK9/5FLfj089uAPTZwcg5/agntu3a38bx3oXVr3
yKsa5R3WLFAvvTEhSOmF083FVD7dYXj05HeR13EyvHoWKssTNoYVjW8EGgvr
ceT+j57D02PISbhi7eJSif/pov5bD+0H8o/vdmAhYUe2xIa+XhTO/Bt8yGAY
fZlHtotokJGt59DN8Kx6vMpp0BP6fgw2HBirNHCoRJd5r8c1U2PQvrTOfzp9
Do+FJ/T2YnXBpLS7DQt0d8TrwuI6Xg5B+sZnhqFJQmtirxYVPlwofFhwjIW3
T667sE6ICsaif2N/bV6c30KpDWnTZDhydCV9Tp6M/o89FTID+mHr+Xskr8MD
mG+sJCqV0w8bqq2Dy3QpeC+isTVtrhPdhPvPzAcOout8u0DiKAl7Tap8avIZ
GPJvH+hY2nfogVl/r9AQ+Cnsmo1Y3Ld29jL9LnMARG3EpXx4KaDC5bmnMbAf
Pt1xUE7I/d//sXSo31tFgfsbFjZqN/RDzyPX6Luhg7D7dvH1fRJdiOuflrpV
LvZbXQpaAkLd+HaJq/vffljocVJUTHQIy1aveKAuSMWDjuLGHKJkPDO/ukWA
RsZ9CpRXPwUG0Izr1fuFi/34mvVG76kqBRc+zQdU+/aj3/yJU2lxg+h74Xjw
iEAXKO6UVT7fwUBu6XfHhn6SoH1pn9AlzvQggrzCGiqSphcyWOuHIP5qipTb
LBllKt4or/kzAC7dO2v93/TjyQElB+24fhD6Esu1K6UfuYuh/Y0wBXY7XmXL
4egC6SLzoMy0QeDiUGU2MEnAjzd4+CkMIPClX+e07sHZLXU1qfl9yJbsOZ6+
jISyb68qndMl43pOjqtqbF0Yoc2WND/di+TN/OYdu1lot6F6pKCuA3fcahS5
VzGE3HqjazR/taEAw6zo3kwfPMiSaiRF92DguMP6MWsyyIXWiKAaCSPoOQE6
mn1w0HWH5DLdLpQJ55QNJ3UAz9dKwTZlFgrLaTl+4m8Hjvp3BR/rhjC+48iB
Jol+TOhVK8oe74Z0x7OFCi/JyOkfPW4T3wWtBFXtmdBF3WrtdlbKnUB7XrTx
+2JenLWQLQjewYJYE8mF6OE2rP01eTsmfwiI77b7HSd2w6aASNLpk/3w3s48
RMi/C4qnW1lDn8lgNsNrPLmuE84ZcvH1lvXBR7cxpWRpFtjSlbdea+gArUPW
rgnpQ5B/PY7twWQbMA7atm9faIAs/Zq2bSqjmPlg+cOEnHrQmOHe89R7MU5X
uWzi46uhO1Jg3DViBHfm0yh8r0hQJONal1tDx5jU/QZ2xV0gqSmfuHwvDWmk
/u+z2kSIvHXr4GPhxX6IGSckrjAKj3YOenoONMCzNdbv3O+woNBeebfdk3oQ
sXh0ZP+bEUj9vWVy9aNqyHJbV/byPR0c17bw9z8gwVFfGUn+aSqMh10LOZfU
BZqFbN8LKTTYY/s0KEeGCOKdiimFe0cxuGGrUh+9AdvtjGZ+ubNw/bQ9TfJl
PUZd/s1kfBjBi3G3ioe8q5EbTvWlF9Pxr9QLHu+bJFS68+jO1u00vPIhc7uW
/6JPFLkHYlfS8U4mf3ytOBE1hi/yR3Q04Oq93C2ae0bB2O/Mq9d36pFF9O27
+4AFfmZF1pJO1Zj5O7k8PHQEzluu4tG+TsKX6s+GNaLpoHZhTIVncd2QPvF1
HstpELpqdZj7SiIOn3aSePGNBiYbVmmRxFog3JSc5TM1hDs+1ac9prXAXNnx
E1tNBrHmZe6Uu1otXD7x7Nb1Y8PIZprM81qdCj3zr/XmWAxM1Z1v6EIa8E2R
FpwbmVj+4NGj64u+EJqyzwk6R8M6w+eCY8U9cK3rZ1LccSpey4qJutU/BNnV
XtuG5ptB/iebjMrhQVDJf2YiW9gC67smuUZlh6HPm3vT6d81IKUlwHa7gwE2
QnqVu49T4eYpcRHrxbly0JP35UAJDe5ZXfCKFafB8q+pD+ZP98NxFRN9T87F
PDZNuzxR0AO1Ex0lKRND2PuoftuH5S1YM5kRusJgECczI5YplrdgaNcq0/qD
w5gW4XjvE3ctPq8Wm1rGYODdVaUvZg9R0YLPc8arjonvUtI3CBXSkNtFXnha
k4bXCLm8P6UW6/zlmabDB6i4WEz39Pv3YEXX4KVHw814ap1GicHgEGhcC1vr
l9SCuzjVSnRODsJclUvGGmYN3qpJbtqzbxhIjVem9yzOVbuDVa3OdDNg3exP
H6tiGibkbbtnVcmEg8nE5Rf39qPTvcv2r7bTwLapYojwsQcTJOpcKKup8Ols
X+yWQDLaEc6NVXVRce2qvzOxplR0NEsoUP1AwwfXfQzYvvbhb6+Sr45KPbil
kSvf8gUdqSYnnGjvF/Ngn3GSnAodNfJJ8yvjqWh4fTv7MVM6mh9JjrZNGsJr
Fzh97bzbsaHnzUSITC92amdNtvMtzhUZJi8kOVvxjW+tDI8SA4sk04m73AjY
4H3tZp8lBaduqPLYBHXhRvKLNjb/AYzWDwpJutyFLrIVfAWOZHy4cTNLoo6I
U1dSe1zb6LgpodFAidiLyTMPD6itb0Xnpg7P7sJ+rD7bnlNe1YvRQSVfLw91
4rEttTE7hPMhJrs7wia2F3M88sQvV0bCriBG4gHhPmS6bxqnMNOgWFP2PHkN
GU/azf24mtWL54YDdRc+VWDQSp3gLj4yTjwgOQs21eBk4ga9V169GFN8pvih
YAO2nRr3fDzRjx2D6/x1K9uQvDblDUGZgsFs7jQ+q1bM2LDMhP0JBXeePzrt
+KYRI+WLCw7u6kW703vaLIMIyL3QsLLNtBc3Hn90XlCIiF4zSd+92GlY4ttY
67pZD8859ORlBVJwo4PepdjqaEw71OgY7kvBpoPdYTX3/EG8TXL4aD0FNflH
DeUqKjDph8P+I+0U5P353NO+NQ913iR/1w0fxn3V7PEXx8vw8nRhaXzSIIKd
WYq+UxWqKjtyRvPWo4XcxmKx2W5kfhgdSbvUjI2xLftue3TiCkuW2JWWFpyt
+21Fv9iDE29JHh4dKfgwbH6ZnSwZjPdLReNINuZ3hnj4knqhImbT9kyjCJTQ
CHcTvtEHfsezAkYGqfD+4KPgHZFkbO+Na2Z8oQH7gRr9L9ZUnH73dui2cw84
2qb7vurpw72B6lJeX8hgnya2PvANHT8v77n4NJ0K5Zve3b+iRsdz/3wGVku+
azfPVNv0oBd+sG/zfTTUjvrnC7nDDrWCZj2rsHMdDYfzNemnYglwqP+B5dwh
Bs4l2Cu7NXaB/Rf2Td7OFJQiHrtiF9kFX099c5PIHUD6u7YV9wQ64FfkvVej
nmR0tBDVK/7ZC187zqUa9tExXPeEhQn7ADRLPmia9WzFZNHsKyOqXbD5vCKn
91QvisoNBjvW9sKZ5Xnlx+1D4JhYRbl09QDsELrvOHg+Gdj8Ylq5xXtB9dik
j9BkNjgFiKef5awE7w31eh4PenHy+JE/+y7XAmfNunI1XjL6+rA0CgkNMBzp
7LbjaS9aCd6jtYi0w+ROCY9jqwbwR2Wbtn9CKyiX6r0UUaOgYe3RKzY8TTBI
/kF7vegTuQVhrUcLBHgsvPms+tFeLDrlTn3oSIQABo2N/3kvNjOruX9K34VP
Z9iURuVp6GtA/BN/4Avw/eoKv55DwZBVPmq8L7yRqj8RH9a1OIe4JscryVeC
CSvkTz6RglVfdr7MP58PVwNbtr0eoiArjvOu+o5yEKlfLskdN4zTAWzG3AVV
4Gsgmq2VM4j7nM6I22T3wPcE7/UHDAn43DJDqVOvByJ3ZmkVaTWgzVDXsgzu
LkBv4dlSzRZcxet8XtI6GqeeflPXciBjpYg23yO3IGRfXt/GCuzDmNeBRzSl
0pH7oFTATF4/puncurD2GxW3ZTl93OJOBpXw+3lfEmioYDhjx3OeCpWeqaae
Fj14Eq33PN7SB4e+5mvoh5NxpbF9d5ErHXI1EgXuplHxeJnMqKssHa4u5TXj
f34DvV328g+N+9Dhh2x1zEgb3NHgov/sI2CqbEzCySEqkDV2cNaZE/DNGYmx
0k0M8N5+Ovj22y4k1HHU+StRoEdIKy3LtguNkrodY5YPwE4FafGOXCLe3CIo
f1KZDI55HzTbenrxMj3onmMRHXQd5MNecJDx+nORPtnvBFD+8zHGcbYTj7OV
NW7m6oUbRy9QB/IW+0dfuxs5x/LgSZW1n4d9LxJHcn8eCkawX/APHajvxQbN
ivWnCGnwXpC0Y35rOa6PMbyU49wLOZOSlzy7q7E+yEkgpWIAyJ26rByeejy1
MjOGd7wHhPRPnJb72IalYXY+lrr9kPS13WcztOJ4hhF52TIKxO9Q2y/B2YjW
5cb8laYUSJKQUaw+SEC7N3s7Zm71gOG95+TvHES0E7e0S33TA7KX310TPn8R
4iy+z5/YQgPx1fefCtlH4i79QsvhJApcNDQtUPMMBIs/vK3bcilw2MdUUUes
Ao+0G/Na51HAWoTmO+WSi9mlqZWv+ylA3uuQrNFQhlHzLRtaPw5DcExxUeuR
Knx6qOuxd+wgdNz1lzPv6kcV76F3e00rQNvGSaXdrBdTbw+cVL9UBeML7gHF
Bemo2qZ/5+WlDvAz+r5hmV8h6m3TUJS8SYLHoapdp3eU4vBvq5ZBOyJEqN/f
SbpHhu93t5aSZqhANUqXzNKhgvp0hLROOg2cy3R4dXj6ALKKqc9f98DPutNd
Kk50uBj3ueRZHBm223/2jZWhw8n2082UHCpcXPLVks/g6v7VTp/K2+BImXdF
zJM+2LdVOfFCOxU0Xk5fF17WCmIbraVd+BkgHvr04SZXAvTfuf9BeisFzDhk
9TYUdUHnnWM86UP9MN645lTYhy7YtVH88lUpMuw6k+Z0fZgI3aUP43my6HB4
/dlcxngvMFeQbHQrCTDefIY3T4QMAWX8AiPfeqDihG33qHIX7E/iz85JLoLM
c6uDDdf1gY5j3tjvplTI4ZKu+OnbBwIhE4/WembCBhnzgT/+3dCTN3VGsb4H
Vj/fznbzUzl4r/0mJm8zAP7TJ7zu6NfAeKHdkERMDzCU+xUkF+f1wFfeYavl
+kE9ff+sdW8b2H4Q+H10hAwHapK5Qmxawe2XM+/8UQqU+/QGLj/XCIpdop2a
6j0geDxQ8XUIARy/0rz0XXtA9dxamYmTRLgvo6UVt4EGP5vcjS/mWeBf66xT
IsEUeJHZ3BqEEXDd52BNfzkFHN0tmqvKg1CgkPg+9B0F+s7oc0XpVECQY9Kk
Vz4FVFskbj47ngtZDZU3ioOH4Wb25uc1vWUQsYw3NWhxfo0YU8vjNawC+dte
IbftK2HrbOL+X0m9IGaUx/0+tBwy9VWePt07AJVsIrtYFmRofRx3fjvGo037
iIuUVR9cpn6zunQwHC8Be59VRj9wP7n29RdHFkpMxhqyPSlHoyJJz46wHizT
yz6rOEpHZWW5QelVQbju2rnqD5EkLK5mS+IKKcE960e+u4WQUOfFxMW9kq/x
IS87Zrf2Yv+DZ+zvTr2Agih7d4WLrTg7h8sNUtpxcMVfn17tBgwuK9Mqf9GG
LVL6fpvpA9hycjrw6Y4Y8CLl3/Lb0oGFVhRpV3o5tnt5dJNudqDVdplLTO58
7HjL7vXnXS9qhwWf5FWth96huqFNwSSUVFqXXzVZA+uNnhie8WXii6ZJYdmH
9Yv9W9TIywUWGrGx1ZqPl+Ky3Ue9espGsWlVstHIZBmWtXGJjui2g1adTtaK
4UZ02QZSF3SIIJvDcc6pqxV3kwkVBzgJ+GjN1CHHs7jYN626417RitzHCUMa
TpV4mN067ZZII3rY6iv/4q5Go6qLPJaEHpBg//SnbL4CY289dO5/9Q7+PFB+
IsnLQOOdISvFn5fCbbs1HjRZEm5RcpEcP+yJ+9wiutSnSZjz87hkskgFcF0f
3vcpebH/jz3IcdqhBoLdi8UrB1vRlzfHJte4DpS3BSlbWjRh9NqXufdWF6Fs
6bs0z7BeLP5wKCBsoAg1Pp40M3AawDi57ZI6JZbwyjPTxqmeiApn8nR/8CWD
9oX25+SGNlxpKfl+HeMJRK3YmlSYQcALtjmU5yP5aKBsv3LVViJWv/pspXG4
APe4pAbtWk9C4XeqUqnERKxkN0opftGJu06HqurV1oOQzXb6vWAmev1p8PEX
K4OFtn32cRwjKNSxy4AhWA5TB2razKpG0dW97ceekRYIFvszH7SnHXxXtP/e
xVYHa9bafBBpJ0Jcga7RhFodPOpvsHtHbIW1RWpylNoYvNnw9TJvRxM+7JHV
9Fnwh+jxVUeSyfVoeSDz4gv5fhSRU/ZW8GyBxrVhFfN7ArBszKVffZ4OKsTN
KSZBDhAfm7G58nk3fOlhqgafDwa6MUvuQ0AfVHrnXWWqleJRW/4WBY9aoLt0
l0Z8zsI9gi+ME0xaYEGkdRDqSrFj5s8IZxMBMgpyU59nxcAfMZiSOk4GuaPa
U+5dLRi+2ibBaqoMWo2e7lHOb0aJ7fHqtr454P81Msn6Yg1a5W5i9vssxkV4
q6nV9Tro6HGP9ajrhXXRQUMCkdVwVPqJ2xc/EohvDQ/p0ajHmuyia5fdmfDt
wvtlOcRSXCW6vCdpngWc/X9CcphleExowoNSOgqSB2+4LddoAakImUgjk36Y
db7/xWWSDvxeg/ZHnwZAssabr/r2XdAnt+lHjDGCbo9e6OpGEty3zDN4NBKC
354p+d4cr4enUbcUbiVVQ9kRwWR20WaY1e973HCmFFbv8+AfKSFA84r5PaYS
VVC4x7YmMr8XPjmtvc61ugRPrrGQ8X48APm/uGrXqpdg5irHzbHPiXBiX3rT
ps2BWN+lKKuh3gaFLLYTI62REJDBth3uEsCj2oFpfigQ8x1Cwx4+IcJVXp+a
gChEx6u8FZzqJLA9TDJjrUUU7x+sDgjsBN/UZwcenU7H0m8Xnws6MKFewlEt
w7webm9/8YwxzYJPUkzJJkop+IQxBVuLRqH76t1Q+/EysHD9EfboRgeSz0mc
Mjv/CmDH3K7Drh24T7nskFDzF/SRPHBcmtSKHxzEXPcaxkGXaO7frPsdOLvy
QNylzemwrfJH5g2uCkxoHHwVdb4VH6jsM+R4WoPayluma9Oa0IpdmjB0pAID
GAUzDjdqcPh7dmXeDyKG5rltLblZj8LDy46/m+vCPuMyTZnYZvTYy6f2h0TE
j6+evzz7nYDPfj0PaCtJAzu2t2fOddfgqo9qf6d0o2BlrCu2b6hApzwBzTvP
PgCTVFERalUIiTcS84RdEuGK2TGpdHI83B76sqtpWw6E8dGt2ELyICfn14fj
Z4vB/arZ/aMaRIyTqZNY7lUJgUUnA4triGhsLDA7sKYYshSd536frsLWByl/
lm8qgkMcex+ZqjSiEpPjmf2KNiBHWEa5QBU2ht18XRTRAoZ+JjHXQ+pwM29y
1EbNehC5WKCXeKMadaNeFzjtbQQTwTSD81OL83GhRfJLmxb4RDYJU9hEQgvX
+gRySCv8rDhx23RDB1q3Rl9SSa+D/fp3xv0fB+KlXQ/Y0/Y2g6pomCX/nXS0
rbl8cb1JIWweurEmQbEVb2q+SzYgfkG+y2uzmEfaQHtuhscUAvDqPvbEVTs7
If5jSkN8bRVcmisnR8lHghef2EDZljIo5ik/dTPpJY7xDDqplrfDZnnfvxdd
6yHhZoZ2X0s7eHgPr/hlVQ5/n9q+VntdAmtPDv8WjS+DEJi4qkOugK4MR42X
OTUwJXxoS2p+IRif4nxic6kO1uk6SoasLMJy3pm07T9Tcf5dkPzchgL8pDEZ
3eHuiXltV1yOxldh0k5fpSvyH/FLyRQhRjkG7l1ojb/Q1gXSoTdk0w60oQjr
dY1ZdibqmZ71bONqxqgVfrTx9wl45n2+TeCnJix/urFi9VcfYHCWqrMrvUGl
Z9TEjZnxKFCfo250OgXjxkVch5/n4MSvKG5FDwcQ+ebHzxaYjxN3lZdPbS5C
HrEdMU7TJXDTZl0wt3QmbHzK1f7bwhNnP4TYCpbmAX3n3Pzjy6k4YiydHMYb
j/xFeZ+0v1oAI/Xs/lNlGZis/1NIYX0qlPz8K//+Yi0mTSY2yHa2Q8Bb3xU7
VV+iuJ6iINxrgj1bB+7sdG1CDoqeQzirE+JoFf7dfgTkKl3O52bSDpyhFVGZ
j9vxL1XUgbqlEj4rPCbY5EWjyssdmzk3F4MM0+O5pFweGHZLOZbd6lzsZ2c1
P60rgRMJb15dEGgHQrTUdOnDcjj18fyZJxUdQIsJyH/K6MApNT0DsatVkE/J
XXl4tgM9kkLPH61D4FpwoCbVFqDZ/A7fo4RSnOPIutQfGwAHOFWDfu3XRIO4
U5VbtfLRJ2NoeoVHHdr3i3UIluTh27Fe07I1BDR1vjFw3NADHlH4x2q0qwAl
17I8LqTCTo0KUWH+IpTq7kh/wCiEuR+hPz/zlmBKGe2OwqNy8Fx3bDuLlgNX
RoqUvErrYNkLhcw99tnwPvNNq/ulSlgoHLLc7VOOz07fe+MX3wAF12487x8t
wWN52s/MQgngx3R3TFxbgjc2le1y0CZAd0vibmpVNrwlVN70m6qGy01b4s1W
NEGwxPbypvvtsCvkuCzfozy4W897/9yvTuB8tefq2zfNcG9Svn/Zg3aQ0OG+
sp67Ffby/Ig16ymHvs6duZHeBCD0Fan9ZhRAwBWNelXFFlij1HonSTsB/Izb
fySvaoATFtZKRe9DwDLKXA42D2IIxfelJd8giDk93kZYFQy+uReuaK4cRFrd
Hoag8BvU51e8WPA+CJXqxa6qbxiEPLvagYZgEgRbxm3ccnUE7Xe2rnEX6oNl
a72nn3iOYohSzpOTxiNwYCwi0fYVCebX/L/74LX03iznwuZNV0aw7Ybk6I2X
JJz99xx9/z3Ha+bKkq2+JDQPvlmXeHEEHi3dX1ofond/aip/NoiXP8W496Qw
8Oy/K2Qs3Tdeuh/373eIX7peWnrv/wAwk6aQ
        "], PolygonBox[CompressedData["
1:eJxNmHncV0UVh+cnyiYIsmirgrS6UCYZSwqikmUiiQpaArJEmoEZYODCq6VU
IgqIEcpSIShQsShgQCDEJigiCWKxyJYCr7EJr6jQeZznfnj/+H7mzL1zzpx9
5t7G3fte1+eklFJFKaUqMbYN9A90CTQMnBG4M9A9MDBwa+DkWPtwjH0Dvw08
EvhpoGfgnkCPQKdAq8A1gc8FHgp8NtAo0Nj1ZYFmgZ8EvhC4MPDNwL8D+wKT
A/cHvhH4sWu+6LrvBS5R38GBiwK9AxcEmgZ+pqwm8rUI3BC4JdAtcHegq894
993AZ5TxaeV9SprxW4EzAxcHvq5OXwr0Uqf2gdaBdq5rr+86B74duFaekrb0
dg/kn+SzkvwD9XcDY/DzwLzA8MB8/VU7cJo+7mRcerhXZ/e6VH2b6At89sfA
n5V5oT7k3V2BU0KB32jvRdrcRL5zAjUCNQO/CHw58JXAAynnSn99e3XgxkDL
wIOB27CvlP2N369QR/KkDTaXsm+gfx/oExgVuE/9ehlTnp+vTcj4fsoOu0a/
tzSmvP+aMSpiVdIfLdQTm48Zc+gO7n9V4Lg2XOoeTZXXyriwV1f3w87mgVMD
tVLO5ebSlyi/he+bu09t49dMupnrz9Tf7fV9a+fN1A3+IYE6gbqBXwfuCFQJ
4/rF+JfA31x7rT4mzrXifX116GD8emrrPfq8Rqw5T7tbansrdcC/yK+ecvx/
lXKfODnluq8avGe7d52gq6VcD72MH7VO7tyuHy/Wr8f0EWuWpVyHRTzItyJf
28p7XL2I4wZ9XzlOhVxyg9on6K315YKUa6TIlfaVfE290d/Iwzb6e03KNVTk
ZYdK8cNv5D/5OS6wxL2uVP7swL9S7lvYeJl2/T3lPjXCvb6j/LLAlMBqbbxc
u5bJB/+LKdfWDdp+tesWp5yLN2oj+6PHqpT7QSdtYR/2W5dyj8C2YYHHiGsp
x7FRyj15TOCpwKmlnBvUHLU3KeV+fFop5xW9iR4yMzArcHop5wB50k+d0fcH
6n5Tyn3idymfGV3cr7HxXawd12nTzSn3iydT7gfd1OMC47tK+zpq6w9T7pl/
SrnHdVe/hsZ3nXZfrw9+lHId/DXl2ump3jXSif72dso9nv711ZT7Gbn/Tso9
m9o7JeVa5Gz7T8pnCOfj51M+I6nXXSn3avrr6Sn3WGQh89zAL7XzDynnPP44
R/+01Vdtnd/u2EU/sjc6VA3cqz0zUq4F/NRUv12RTvTfPr7r47NR6orOZwUG
GKdHU64R/HeG/mynb9s5v9Oxu37HNmysFxhkPJ5JuXbwa039fFU60Yf6+a6f
z4gHfaC/dt8iTS8dpm7k00P6mnsIfeBu7esqTS8bo2/JpweMJWcSfWCgdtwq
Tc+bpM7k0xBjxtnYJuV+ib49pOmxM/U5+fRJbyzlvvy2+61Meb+a8fzplHOH
dW+lvK5uPH8+5dzBnkUp21Mtnj+ecu6gx+sp61E7nj8b4wrl3+a4wr3o5eTW
ue5JbpFXG933DseN6kDPJoeqqgs5RP4sVJ++jgvVrap3v7PUcYB5slY973Jc
q861vFPUU/dB5gMx7GIc6T/k8gDj+6jvB/i8oB92/0bynC3/Y/KhKz4b4Yic
ofJVM0/IpRflG+oaeMcGlgb+GXgi5bvWSOUMlR5ZSTZ9c6Tv6Ln093mOI+Qf
rM8Wum6YfCOUNVxdNmnDK4HnAq+mnLPdUs5b+jA1SizHGM8nnY+qRD9o/M+X
5zz5n5KPXCEHxzkiZ7R8Na0LamexfKNdA+/6wBuBFwIT9Nd45YyWHl9JNufH
eN9xhi3Rt0tcAz9nKDm7wnVj5BunrLHqjj7bUj4TkbE85Rql51CnnEf0HnKL
+n3G94N8XtDkIfnYQJ768k+Wj9yltqY4ImeifLXtA/SKVfJNdA28/wjUK+Vz
eJpxnKqcidJTK8nmHJ3qO87m1cZ/tWvgL0u5hta6bpJ8U5TFGs6/Be79v5Rz
h/3pSfRS+hLnMj2V2qZfzfD9vT4vaPoA/aC6PNXknyUfvYNeNdsROdPlq2vf
ozeuk2+6a+BtUMp3kdcCc1POoznKmS49p5Js7hNzfMddhzvVG46z5eeORQ/b
6LqZ8s1WFmvWuDfn/gZlvJlyzVF73E9ukqYGixoe7khtc7+b77MnXDPfmG+W
b5PzBb7vJN1RGfOcz1fG3pTzrqOxozfRF+gVgx1HSPOtuMiR+wVnBfWwPeX6
2KK8zT6nXrhH3SzNmqL2xjpSk8ecT0gneh8j9bUj8J57LNdPxT19mfPL5GFe
v5R5t0pvko+eQj1T4/c5jpPmG2GlI/cszswPU863nYFDytqqn/BXUXurnBc1
85wjtcT9+lWfTXMNc3KP/wrvplwrzNf4vrP09cp4xTnrDwT2qBfvG9gLqENq
s8xxijTfd687cu/bJR/8RW2sc17k9AuO5Ppx59RJ0XcZ39Q/HwSOOifOxffQ
BueXy8O8YSnz/ld6m3zUKnVC7dzvOFuafxFvOXLP5c6yO+X8LvJ+t37hbkA+
cv/tLb3I2JMD5Mlm6ZekGbdIUwvVjfERY/5x4P3A4ZRzkLyakHJOsoa13HnI
F+7pvaRXats2/bBd+mV5t0tvVx5nDT7BNxXKXeqe5Mf+lPOmQv+hzxDjWcf4
7jLWc43NUfUnRh+lfNfCf1X05zv6FvsPppxX7POae+3Vt/Mdt7im3PWHnJPD
+/ThXv24W3qLupar+0H9uUfb39P+rdI7lIXN0xzfVa99PuPc4b/cAZ/tUSbr
qAfW7vQ96+hpu113QL0PVrK7XH7mL/n+kDQ1f9j35e7xvn4tNwcq9PFhY3NE
OyqUc8S1O4x5hYAm5h/Id1Q5Hxovnq33+VzH9b5nzvnykfOdYr+8+9W1iP/H
6rdfmjX876D3HRPQ9GP+a1B7xwU0/YD/F5wBn/zEKmWac4n/FGUp9zoATf+j
LvgvV3yzMjInD/lnU3yzMjKnfvk/W3yzMjInz/nPVHyzMjLnzs0dvPhOrOr/
A+hqfhs8Ls3dmvykvjkjR0qTq9xNuasW3781/N8AXdNvmKeluYOSt9QrZ9l4
6Qkp3+G40xXfm7X8PwFd22+PZ6W5q5G75DJnx1Rp8pu7Dnef4ju6jv8zoOv6
jfS89AzjTy7Qw+dIkx/kOrlPj5wsTT3Q/8hr8nup9HJzg/qh/mdJk1P0LfL0
ZfMPmt72f6+k988=
         "]]]}], {576., -188.99999999999997}, 
     ImageScaled[{0.5, 0.5}], {360., 359.99999999999994}]}, {}},
  ContentSelectable->True,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.720735703828537*^9, 3.720735718869627*^9}, {
   3.720735836262833*^9, 3.72073585181936*^9}, {3.720736054487512*^9, 
   3.7207360927597923`*^9}, {3.720736156613165*^9, 3.720736184204483*^9}, 
   3.72073637823168*^9, 3.7207364607480927`*^9, 3.7207395235340147`*^9, 
   3.720766210099979*^9},
 CellLabel->"Out[7]=",
 CellID->1063834339,ExpressionUUID->"7e72a24d-6ce7-4e94-ae99-2537efc60ac4"]
}, Open  ]],

Cell[TextData[{
 "Compare the ",
 Cell[BoxData[
  ButtonBox["MinMax",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "b4f026ea-25ac-4f34-8163-8050954552c0"],
 " ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "32a81394-e478-4d0e-b0b9-61a9ecf4dd9c"],
 " quality:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.7207633889430437`*^9, 3.720763415274724*^9}, {3.7207635898064947`*^9, 
  3.7207635948093576`*^9}},
 CellID->432741889,ExpressionUUID->"6080075d-24f0-42ef-9499-5d6952786efe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MinMax", "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", "\"\<Quality\>\"", "]"}], ",", 
    RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.720735858798676*^9, 3.720735865430522*^9}, {
  3.720736166066512*^9, 3.720736181192617*^9}},
 CellLabel->"In[8]:=",
 CellID->444715740,ExpressionUUID->"93d18d5c-c0af-409b-83c2-70276acf34aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.6782628563139602`", ",", "0.9996595293944366`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.739487388306826`", ",", "0.9998844333675796`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.720735861638383*^9, 3.720735912049149*^9}, {
   3.720736052897851*^9, 3.720736091699843*^9}, {3.720736154614932*^9, 
   3.720736181595976*^9}, 3.7207363782052097`*^9, 3.720736459386343*^9, 
   3.720739522610917*^9, 3.7207662137659893`*^9},
 CellLabel->"Out[8]=",
 CellID->797793906,ExpressionUUID->"dfd73eef-7e96-4aea-906c-c60ecd359787"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "bc4ded0c-56ac-4e6d-bfcd-ca04ef60d455"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"afdcce4d-edd9-4564-90e7-300827c32e5a"],

Cell[CellGroupData[{

Cell[BoxData["Method"], "ExampleSubsection",
 CellChangeTimes->{{3.72076785882708*^9, 3.720767860251989*^9}},
 CellID->1757724783,ExpressionUUID->"a029eac3-956e-4b37-a695-e679e149180f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bba9378c-e5a4-48fc-b5d8-01dbbd867c82"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->790125716,ExpressionUUID->"ff6993de-7cba-4f45-9dbe-c45d59afb9ec"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "b58567a6-4fdc-42ec-9290-b373450ccc21"],
 " from a ",
 Cell[BoxData[
  ButtonBox["Disk",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "db8d2459-e2a4-4eb3-97fc-c13cf3ccd830"],
 " and smooth the mesh with an iterative procedure:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720767898067381*^9, 
   3.720767913890731*^9}},
 CellID->1879911356,ExpressionUUID->"e95b3731-6eb4-4539-8591-9a7a6cf9d2fe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{"Disk", "[", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sm", "=", 
   RowBox[{"ElementMeshSmoothing", "[", 
    RowBox[{"om", ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Iterative\>\""}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7207595805879707`*^9, 3.720759587379307*^9}, {
  3.720767917717157*^9, 3.720767935027687*^9}},
 CellLabel->"In[2]:=",
 CellID->222021257,ExpressionUUID->"0c8a1a16-5e6c-4854-ad18-16501b610a14"],

Cell[TextData[{
 "Visualize the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "a2436d47-a1e6-44ac-9738-6ef1679d9d17"],
 " quality distribution:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.7207633889430437`*^9, 3.720763415274724*^9}, {3.7207635898064947`*^9, 
  3.720763648024302*^9}},
 CellID->1109287923,ExpressionUUID->"56d5bf09-3a34-4102-91a3-733280614522"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Join", "@@", 
     RowBox[{"om", "[", "\"\<Quality\>\"", "]"}]}], ",", 
    RowBox[{"Join", "@@", 
     RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735724305232*^9, 3.720735799135557*^9}},
 CellLabel->"In[4]:=",
 CellID->1207242174,ExpressionUUID->"1d91bc69-a4cd-4cee-9be8-04284e7552fd"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.567], Thickness[Small]}], {{}, 
     {RGBColor[0.97858, 0.678934, 0.157834], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.66, 0.}, {0.68, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{37.242647058823536`, 55.98572664359858}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.7, 0.}, {0.72, 4}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{73.22880622837363, 91.97188581314867}, {
           77.50213827733032, 81.93330436462277}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.72, 0.}, {0.74, 2}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{91.22188581314867, 109.96496539792383`}, {
           79.34272132097654, 81.93330436462277}}],
         StatusArea[#, 2]& ,
         TagBoxNote->"2"],
        StyleBox["2", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[2, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.74, 0.}, {0.76, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{109.21496539792383`, 127.958044982699}, {
           76.5818467555072, 81.93330436462277}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.76, 0.}, {0.78, 24}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{127.208044982699, 145.95112456747404`}, {
           59.096307840868036`, 81.93330436462277}}],
         StatusArea[#, 24]& ,
         TagBoxNote->"24"],
        StyleBox["24", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[24, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.78, 0.}, {0.8, 13}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{145.20112456747404`, 163.9442041522492}, {
           69.2195145809223, 81.93330436462277}}],
         StatusArea[#, 13]& ,
         TagBoxNote->"13"],
        StyleBox["13", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[13, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.8, 0.}, {0.82, 15}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{163.1942041522492, 181.93728373702413`}, {
           67.37893153727606, 81.93330436462277}}],
         StatusArea[#, 15]& ,
         TagBoxNote->"15"],
        StyleBox["15", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[15, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 23}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702413`, 199.9303633217993}, {
           60.01659936269115, 81.93330436462277}}],
         StatusArea[#, 23]& ,
         TagBoxNote->"23"],
        StyleBox["23", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[23, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 18}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217993, 217.92344290657434`}, {
           64.61805697180672, 81.93330436462277}}],
         StatusArea[#, 18]& ,
         TagBoxNote->"18"],
        StyleBox["18", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[18, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 47}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{217.17344290657434`, 235.9165224913495}, {
           37.92960283893641, 81.93330436462277}}],
         StatusArea[#, 47]& ,
         TagBoxNote->"47"],
        StyleBox["47", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[47, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 35}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913495, 253.90960207612454`}, {
           48.97310110081378, 81.93330436462277}}],
         StatusArea[#, 35]& ,
         TagBoxNote->"35"],
        StyleBox["35", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[35, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 46}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612454`, 271.9026816608997}, {
           38.84989436075953, 81.93330436462277}}],
         StatusArea[#, 46]& ,
         TagBoxNote->"46"],
        StyleBox["46", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[46, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 60}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{271.1526816608997, 289.89576124567463`}, {
           25.965813055235927`, 81.93330436462277}}],
         StatusArea[#, 60]& ,
         TagBoxNote->"60"],
        StyleBox["60", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[60, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 36}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567463`, 307.8888408304498}, {
           48.05280957899067, 81.93330436462277}}],
         StatusArea[#, 36]& ,
         TagBoxNote->"36"],
        StyleBox["36", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[36, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 54}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304498, 325.88192041522484`}, {
           31.487562186174614`, 81.93330436462277}}],
         StatusArea[#, 54]& ,
         TagBoxNote->"54"],
        StyleBox["54", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[54, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 121}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{325.13192041522484`, 
           343.875}, {-30.17196977597402, 81.93330436462277}}],
         StatusArea[#, 121]& ,
         TagBoxNote->"121"],
        StyleBox["121", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[121, {}], "Tooltip"]& ]}, {}, {}}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.7, 0.}, {0.72, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{73.22880622837363, 91.97188581314867}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.8, 0.}, {0.82, 1}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{163.1942041522492, 181.93728373702413`}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702413`, 199.9303633217993}, {
           80.26301284279965, 81.93330436462277}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 7}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217993, 217.92344290657434`}, {
           74.74126371186097, 81.93330436462277}}],
         StatusArea[#, 7]& ,
         TagBoxNote->"7"],
        StyleBox["7", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[7, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 4}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{217.17344290657434`, 235.9165224913495}, {
           77.50213827733032, 81.93330436462277}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913495, 253.90960207612454`}, {
           76.5818467555072, 81.93330436462277}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 21}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612454`, 271.9026816608997}, {
           61.85718240633737, 81.93330436462277}}],
         StatusArea[#, 21]& ,
         TagBoxNote->"21"],
        StyleBox["21", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[21, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 34}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{271.1526816608997, 289.89576124567463`}, {
           49.893392622636895`, 81.93330436462277}}],
         StatusArea[#, 34]& ,
         TagBoxNote->"34"],
        StyleBox["34", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[34, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 90}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567463`, 
           307.8888408304498}, {-1.6429325994574953`, 81.93330436462277}}],
         StatusArea[#, 90]& ,
         TagBoxNote->"90"],
        StyleBox["90", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[90, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 141}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304498, 
           325.88192041522484`}, {-48.577800212436316`, 81.93330436462277}}],
         StatusArea[#, 141]& ,
         TagBoxNote->"141"],
        StyleBox["141", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[141, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 199}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{325.13192041522484`, 
           343.875}, {-101.95470847817693`, 81.93330436462277}}],
         StatusArea[#, 199]& ,
         TagBoxNote->"199"],
        StyleBox["199", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[199, {}], 
        "Tooltip"]& ]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.6532, 0.},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0.66, 1.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.720767964443901*^9, 3.720771538522778*^9},
 CellLabel->"Out[4]=",
 CellID->139519321,ExpressionUUID->"1b9ce082-3023-47de-b78a-93cfee78fa97"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "501f5f53-cbfb-4573-929e-59a402eb6fe9"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->108088849,ExpressionUUID->"43f697f3-5cc9-42a4-a832-04930e9e0c0c"],

Cell[TextData[{
 "Create an ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "b07198b1-9d42-47ec-84bc-755d0719f462"],
 " to be smoothed by iterative procedure with ",
 Cell[BoxData[
  ButtonBox["MaxIteration",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "447692e0-dbdb-4721-a12a-fec23ad84163"],
 " steps:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
   3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
   3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
   3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
   3.720759574855352*^9}, 3.720763258106359*^9, {3.720767898067381*^9, 
   3.720767913890731*^9}, {3.720768008237391*^9, 3.7207680510319433`*^9}},
 CellID->408554016,ExpressionUUID->"a905f31c-fe31-4ae2-a2d4-0b2ea005a82b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{"Disk", "[", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sm", "=", 
   RowBox[{"ElementMeshSmoothing", "[", 
    RowBox[{"om", ",", 
     RowBox[{"Method", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Iterative\>\"", ",", 
        RowBox[{"MaxIterations", "\[Rule]", "400"}]}], "}"}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7207595805879707`*^9, 3.720759587379307*^9}, {
  3.720767917717157*^9, 3.720767935027687*^9}, {3.720768055071229*^9, 
  3.7207680644683447`*^9}},
 CellLabel->"In[37]:=",
 CellID->1156768684,ExpressionUUID->"8a149421-995d-42c5-bff1-577fc3816114"],

Cell[TextData[{
 "Visualize the ",
 Cell[BoxData[
  ButtonBox["ElementMesh",
   BaseStyle->"Link",
   ButtonData->"paclet:FEMDocumentation/ref/ElementMesh"]], "InlineFormula",
  ShowStringCharacters->False,ExpressionUUID->
  "b01e5cea-74e1-4d05-98a5-0cded2adee41"],
 " quality distribution:"
}], "ExampleText",
 CellChangeTimes->{{3.587200739796482*^9, 3.5872007764770613`*^9}, {
  3.587268975848331*^9, 3.587268986460717*^9}, {3.588584301734823*^9, 
  3.588584310711549*^9}, {3.588584790643684*^9, 3.5885847916251097`*^9}, {
  3.651298825134055*^9, 3.6512988255804768`*^9}, {3.720759561789927*^9, 
  3.720759574855352*^9}, {3.720763258106359*^9, 3.720763281463752*^9}, {
  3.7207633889430437`*^9, 3.720763415274724*^9}, {3.7207635898064947`*^9, 
  3.720763648024302*^9}},
 CellID->546554244,ExpressionUUID->"e7743994-f3d4-41bd-97ac-0c58f7eeaf83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Join", "@@", 
     RowBox[{"om", "[", "\"\<Quality\>\"", "]"}]}], ",", 
    RowBox[{"Join", "@@", 
     RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.720735724305232*^9, 3.720735799135557*^9}},
 CellLabel->"In[39]:=",
 CellID->824823908,ExpressionUUID->"b3b25007-bc1d-4074-8a6a-e6b2b24222e9"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.567], Thickness[Small]}], {{}, 
     {RGBColor[0.97858, 0.678934, 0.157834], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.66, 0.}, {0.68, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{37.24264705882365, 55.985726643598696`}, {
           79.44345250131681, 81.10914256553082}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.7, 0.}, {0.72, 4}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{73.22880622837374, 91.97188581314879}, {
           76.69638230867483, 81.10914256553082}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.72, 0.}, {0.74, 2}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{91.22188581314879, 109.96496539792395`}, {
           78.52776243710282, 81.10914256553082}}],
         StatusArea[#, 2]& ,
         TagBoxNote->"2"],
        StyleBox["2", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[2, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.74, 0.}, {0.76, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{109.21496539792395`, 127.9580449826991}, {
           75.78069224446082, 81.10914256553082}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.76, 0.}, {0.78, 24}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{127.2080449826991, 145.95112456747415`}, {
           58.38258102439485, 81.10914256553082}}],
         StatusArea[#, 24]& ,
         TagBoxNote->"24"],
        StyleBox["24", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[24, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.78, 0.}, {0.8, 13}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{145.20112456747415`, 163.9442041522493}, {
           68.45517173074884, 81.10914256553082}}],
         StatusArea[#, 13]& ,
         TagBoxNote->"13"],
        StyleBox["13", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[13, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.8, 0.}, {0.82, 15}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{163.1942041522493, 181.93728373702425`}, {
           66.62379160232084, 81.10914256553082}}],
         StatusArea[#, 15]& ,
         TagBoxNote->"15"],
        StyleBox["15", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[15, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 23}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702425`, 199.9303633217994}, {
           59.29827108860886, 81.10914256553082}}],
         StatusArea[#, 23]& ,
         TagBoxNote->"23"],
        StyleBox["23", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[23, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 18}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217994, 217.92344290657445`}, {
           63.87672140967885, 81.10914256553082}}],
         StatusArea[#, 18]& ,
         TagBoxNote->"18"],
        StyleBox["18", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[18, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 47}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{217.17344290657445`, 235.9165224913496}, {
           37.32170954747289, 81.10914256553082}}],
         StatusArea[#, 47]& ,
         TagBoxNote->"47"],
        StyleBox["47", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[47, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 35}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913496, 253.90960207612466`}, {
           48.309990318040875`, 81.10914256553082}}],
         StatusArea[#, 35]& ,
         TagBoxNote->"35"],
        StyleBox["35", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[35, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 46}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612466`, 271.9026816608998}, {
           38.23739961168689, 81.10914256553082}}],
         StatusArea[#, 46]& ,
         TagBoxNote->"46"],
        StyleBox["46", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[46, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 60}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{271.1526816608998, 289.89576124567475`}, {
           25.417738712690912`, 81.10914256553082}}],
         StatusArea[#, 60]& ,
         TagBoxNote->"60"],
        StyleBox["60", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[60, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 36}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567475`, 307.8888408304499}, {
           47.39430025382687, 81.10914256553082}}],
         StatusArea[#, 36]& ,
         TagBoxNote->"36"],
        StyleBox["36", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[36, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 54}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304499, 325.88192041522495`}, {
           30.911879097974904`, 81.10914256553082}}],
         StatusArea[#, 54]& ,
         TagBoxNote->"54"],
        StyleBox["54", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[54, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 121}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{325.13192041522495`, 
           343.8750000000001}, {-30.439355204362997`, 81.10914256553082}}],
         StatusArea[#, 121]& ,
         TagBoxNote->"121"],
        StyleBox["121", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[121, {}], "Tooltip"]& ]}, {}, {}}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.5], EdgeForm[{Opacity[
      0.567], Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.7, 0.}, {0.72, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{73.22880622837374, 91.97188581314879}, {
           79.44345250131681, 81.10914256553082}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.8, 0.}, {0.82, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{163.1942041522493, 181.93728373702425`}, {
           79.44345250131681, 81.10914256553082}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.82, 0.}, {0.84, 1}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{181.18728373702425`, 199.9303633217994}, {
           79.44345250131681, 81.10914256553082}}],
         StatusArea[#, 1]& ,
         TagBoxNote->"1"],
        StyleBox["1", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.84, 0.}, {0.86, 7}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{199.1803633217994, 217.92344290657445`}, {
           73.94931211603283, 81.10914256553082}}],
         StatusArea[#, 7]& ,
         TagBoxNote->"7"],
        StyleBox["7", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[7, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.86, 0.}, {0.88, 4}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{217.17344290657445`, 235.9165224913496}, {
           76.69638230867483, 81.10914256553082}}],
         StatusArea[#, 4]& ,
         TagBoxNote->"4"],
        StyleBox["4", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[4, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.88, 0.}, {0.9, 5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{235.1665224913496, 253.90960207612466`}, {
           75.78069224446082, 81.10914256553082}}],
         StatusArea[#, 5]& ,
         TagBoxNote->"5"],
        StyleBox["5", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[5, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.9, 0.}, {0.92, 21}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{253.15960207612466`, 271.9026816608998}, {
           61.12965121703685, 81.10914256553082}}],
         StatusArea[#, 21]& ,
         TagBoxNote->"21"],
        StyleBox["21", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[21, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.92, 0.}, {0.94, 35}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{271.1526816608998, 289.89576124567475`}, {
           48.309990318040875`, 81.10914256553082}}],
         StatusArea[#, 35]& ,
         TagBoxNote->"35"],
        StyleBox["35", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[35, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.94, 0.}, {0.96, 89}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{289.14576124567475`, 
           307.8888408304499}, {-1.137273149515039, 81.10914256553082}}],
         StatusArea[#, 89]& ,
         TagBoxNote->"89"],
        StyleBox["89", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[89, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.96, 0.}, {0.98, 140}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{307.1388408304499, 
           325.88192041522495`}, {-47.83746642442895, 81.10914256553082}}],
         StatusArea[#, 140]& ,
         TagBoxNote->"140"],
        StyleBox["140", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[140, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0.98, 0.}, {1., 200}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{325.13192041522495`, 
           343.8750000000001}, {-102.77887027726888`, 81.10914256553082}}],
         StatusArea[#, 200]& ,
         TagBoxNote->"200"],
        StyleBox["200", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[200, {}], 
        "Tooltip"]& ]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}}, {}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.6532, 0.},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0.66, 1.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.720767964443901*^9, 3.720768067887596*^9},
 CellLabel->"Out[39]=",
 CellID->1635574534,ExpressionUUID->"a125692a-bfcb-4c89-9c49-da0ac646b95c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "8f63b2f8-1a43-4d43-a296-7877a5a0e91a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"d71a2c1f-e077-4a3e-bcbf-63cbe106c868"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "dc85d104-65bd-4855-b55a-3dae726e277c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"fd2851cf-6093-476f-96ee-8a9459dd83f9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "a345d9b1-343d-4310-b0c4-73c385b38815"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"07b35a62-59b8-4a86-9d87-87ae44c39f38"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "4954dfe2-3c97-4749-b516-174a79ba64cc"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->437359515,ExpressionUUID->"5db62abd-ed41-4ef1-a757-cbbe96ce4fb1"],

Cell["Some meshes can not be smoothed:", "ExampleText",
 CellChangeTimes->{{3.720772543333609*^9, 3.7207725542343397`*^9}},
 CellID->1792038635,ExpressionUUID->"d2819c3d-1f1d-40a0-9863-b03c46f4b6d9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{
     RowBox[{"ImplicitRegion", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}], "+", 
         RowBox[{"z", "^", "2"}]}], "\[LessEqual]", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"\"\<MeshOrder\>\"", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sm", "=", 
   RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.720768184509419*^9, 3.7207681982036743`*^9}, 
   3.720772476612788*^9},
 CellLabel->"In[15]:=",
 CellID->1328843775,ExpressionUUID->"529b7e12-4bb9-427a-9be7-c9a298431a91"],

Cell[BoxData[
 TemplateBox[{
  "ToElementMesh","femimq",
   "\"The element mesh has insufficient quality of \
\\!\\(\\*RowBox[{\\\"-\\\", \\\"0.10939082527280863`\\\"}]\\). A quality \
estimate below 0. may be caused by a wrong ordering of element incidents or \
self-intersecting elements.\"",2,16,3,32493760130148935661,"Local",
   "NDSolve`FEM`ToElementMesh"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.720768204259515*^9, 3.720768753956064*^9, 
  3.720772433558621*^9, 3.7207725568919163`*^9},
 CellLabel->"During evaluation of In[15]:=",
 CellID->2041298468,ExpressionUUID->"af741653-9797-41ca-b234-942730c5dd55"]
}, Open  ]],

Cell[TextData[{
 "In this case it may help to use a larger ",
 Cell[BoxData[
  ButtonBox["MaxCellMeasure",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "8e844dda-0f89-46b6-9bdb-3db1a5576b98"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.720772543333609*^9, 3.7207725908270206`*^9}},
 CellID->1086330514,ExpressionUUID->"a1d8e45c-5c3b-4e9d-9a1e-34a5ba444c6b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{
     RowBox[{"ImplicitRegion", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}], "+", 
         RowBox[{"z", "^", "2"}]}], "\[LessEqual]", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"\"\<MeshOrder\>\"", "\[Rule]", "1"}], ",", 
     RowBox[{"MaxCellMeasure", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"sm", "=", 
  RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}]}], "Input",
 CellChangeTimes->{{3.720768184509419*^9, 3.7207681982036743`*^9}, {
  3.720772476612788*^9, 3.720772489359605*^9}},
 CellLabel->"In[13]:=",
 CellID->1178027860,ExpressionUUID->"07e4d326-c0fc-4f59-99ff-553921a7e16c"],

Cell[BoxData[
 TagBox[
  RowBox[{"ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.9875771574795098`"}], ",", "0.9875771574795098`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.9875771574795098`"}], ",", "0.9875771574795098`"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.9875771574795098`"}], ",", "0.9875771574795098`"}], 
       "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"TetrahedronElement", "[", 
      RowBox[{
       StyleBox["\<\"<\"\>",
        ShowStringCharacters->False], "\[InvisibleSpace]", "1221", 
       "\[InvisibleSpace]", 
       StyleBox["\<\">\"\>",
        ShowStringCharacters->False]}], "]"}], "}"}]}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellChangeTimes->{3.720772489857584*^9},
 CellLabel->"Out[14]=",
 CellID->1758685991,ExpressionUUID->"938a0e84-c8cd-4414-ba5e-d7446673fe81"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "91056427-9a2b-4a5a-bd0d-e07745cff494"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->877893315,ExpressionUUID->"73d54cd6-2203-446e-a5b1-4c496d34534a"],

Cell["Sometimes the min mesh quality deteriorates:", "ExampleText",
 CellChangeTimes->{{3.720772543333609*^9, 3.7207725542343397`*^9}, {
  3.720772636590128*^9, 3.7207726508664837`*^9}},
 CellID->1650619546,ExpressionUUID->"56e011b3-6902-4377-bc0f-f1f08d2bb1a3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"om", "=", 
   RowBox[{"ToElementMesh", "[", 
    RowBox[{
     RowBox[{"ImplicitRegion", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}], "+", 
         RowBox[{"z", "^", "2"}]}], "\[LessEqual]", "1"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", 
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"\"\<MeshOrder\>\"", "\[Rule]", "1"}], ",", 
     RowBox[{"MaxCellMeasure", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sm", "=", 
   RowBox[{"ElementMeshSmoothing", "[", "om", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.720768184509419*^9, 3.7207681982036743`*^9}, {
   3.720772476612788*^9, 3.720772489359605*^9}, 3.720772656511957*^9},
 CellLabel->"In[17]:=",
 CellID->1025267551,ExpressionUUID->"c1b9ba9c-81de-473b-b619-dca39d95b9d5"],

Cell["\<\
Note how the min qaulity for the smoothed mesh is small compared to the \
original mesh:\
\>", "ExampleText",
 CellChangeTimes->{{3.720772543333609*^9, 3.7207725542343397`*^9}, {
  3.720772636590128*^9, 3.7207726508664837`*^9}, {3.7207726971991*^9, 
  3.720772724368183*^9}},
 CellID->1509361121,ExpressionUUID->"2dd5a280-1c9a-4a61-b893-3f7a5acf5ef1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MinMax", "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"om", "[", "\"\<Quality\>\"", "]"}], ",", 
    RowBox[{"sm", "[", "\"\<Quality\>\"", "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.72077265810777*^9, 3.7207726799962587`*^9}},
 CellLabel->"In[19]:=",
 CellID->1473048791,ExpressionUUID->"73ca0e76-b5e9-4810-9863-27603863c8eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.16364527978352109`", ",", "0.97236600072585`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.03776251959264057`", ",", "0.9805876393819434`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.720772680569092*^9},
 CellLabel->"Out[19]=",
 CellID->1118174932,ExpressionUUID->"2d478739-350d-4978-ab4b-d57f9c9580ad"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "4dfa85c8-ad20-4645-979a-352339bed4ee"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"44555762-fb64-4c85-838a-4f76c9cb32d0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "a3f7286c-15b9-4967-bb8c-94e00e36cf47"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"99670570-bf05-489a-aff7-239981f2cc11"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Design Discussion", "DesignDiscussionSection",
 CellID->1775809863,ExpressionUUID->"9885e9bb-2175-4818-b183-fc40f16311aa"],

Cell["XXXX", "DesignDiscussion",
 CellID->308641435,ExpressionUUID->"c00e5de3-261e-4b70-8556-e8508f9c523b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Application Notes", "ApplicationNotesSection",
 CellID->1163590540,ExpressionUUID->"e8ddc3bb-4216-44e6-a2b4-7ab0acd51df2"],

Cell["XXXX", "ApplicationNotes",
 CellID->1480116198,ExpressionUUID->"72a5bb39-5ac0-411d-8aeb-d2a71bdf3ce4"]
}, Open  ]],

Cell["Test Cases", "TestCasesSection",
 CellID->725748110,ExpressionUUID->"1725b690-b910-40ae-bbcc-6d8d2ac1b594"],

Cell[CellGroupData[{

Cell["Function Essay", "FunctionEssaySection",
 CellID->37427227,ExpressionUUID->"beaf6e4a-a093-4ac6-8b78-6346312230ef"],

Cell["XXXX", "FunctionEssay",
 CellID->356990964,ExpressionUUID->"fffe77f6-0912-45d0-890a-2f8aeac8fd35"]
}, Open  ]]
},
WindowSize->{379, 1041},
WindowMargins->{{Automatic, 770}, {Automatic, 18}},
TaggingRules->{
 "DocuToolsSettingsInternal" -> {
   "$PacletVersion" -> "0.9.1871", "$MVersion" -> "11", "$FlaggedVersion" -> 
    10.4, "$ApplicationName" -> "Pubs", "$LinkBase" -> "Pubs", 
    "$ApplicationDirectory" -> "C:\\Workspace\\Pubs\\", 
    "$DocumentationDirectory" -> 
    "C:\\Workspace\\Pubs\\Documentation\\English\\", "$UseNewPageDialog" -> 
    ""}, "SecurityRisk" -> False, "SecurityExplanation" -> "", "Author" -> 
  "ruebenko", "CreationDate" -> "11-27-2017 16:59:57"},
CellContext->Notebook,
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[40765, 1146, 155, 2, 85, "ExtendedExamplesSection",ExpressionUUID->"f5db9e31-3b9c-49c7-b11c-dc0560c06443",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 257789, 5846}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 37, "History",ExpressionUUID->"1f2e1ab5-4548-4110-8a35-73652ea06424",
 CellID->341476719],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 45, "CategorizationSection",ExpressionUUID->"d73ebc44-2c87-4504-abd1-312e39685f92",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 78, "Categorization",ExpressionUUID->"ab4928eb-529f-4615-a686-77ebd1fdd1b3",
 CellID->686433507],
Cell[1514, 46, 179, 3, 78, "Categorization",ExpressionUUID->"688dfc12-dca9-4b6f-822d-7d2d928a54c5",
 CellID->605800465],
Cell[1696, 51, 177, 3, 78, "Categorization",ExpressionUUID->"152c3014-d6a9-4adf-b8fd-2715652c9e25",
 CellID->468444828],
Cell[1876, 56, 249, 3, 78, "Categorization",ExpressionUUID->"de289b9b-6ded-4f3a-8986-0c71dc9d3dbe"],
Cell[2128, 61, 135, 2, 78, "Categorization",ExpressionUUID->"0a199aae-e015-4dd9-b3fe-bf081b7da380",
 CellID->172747495]
}, Closed]],
Cell[CellGroupData[{
Cell[2300, 68, 111, 1, 29, "SynonymsSection",ExpressionUUID->"ec3c0814-ce88-49c5-8cb6-cfffad1b7b3c",
 CellID->1427418553],
Cell[2414, 71, 176, 2, 45, "Keywords",ExpressionUUID->"5e0a79cb-7fef-4945-abb9-50f6821f7e0d",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2627, 78, 110, 1, 29, "KeywordsSection",ExpressionUUID->"a2ed86e2-0e53-4629-857f-cab489034901",
 CellID->477174294],
Cell[2740, 81, 168, 2, 45, "Synonyms",ExpressionUUID->"f4e193d5-360d-418f-af7a-cb185854833a",
 CellID->1251652828],
Cell[2911, 85, 172, 2, 45, "Synonyms",ExpressionUUID->"22c19cd5-28de-4996-be92-9e69810502d1",
 CellID->997284865],
Cell[3086, 89, 173, 2, 45, "Synonyms",ExpressionUUID->"23f1a51d-f285-40ef-9d71-f12813e75125",
 CellID->1007290203],
Cell[3262, 93, 105, 1, 45, "Synonyms",ExpressionUUID->"8d50304e-a413-4fc4-a18e-d646e69284b7",
 CellID->2029454323],
Cell[3370, 96, 181, 2, 45, "Synonyms",ExpressionUUID->"bc86360b-133a-4a48-8d3b-09a8f5ea67f5",
 CellID->1129330320],
Cell[3554, 100, 181, 2, 45, "Synonyms",ExpressionUUID->"274157c0-97ef-4b33-9971-5578ea87614e",
 CellID->55967654],
Cell[3738, 104, 171, 2, 45, "Synonyms",ExpressionUUID->"d15b163e-dc25-4059-bd62-51f7357a8816",
 CellID->1750894467],
Cell[3912, 108, 174, 2, 45, "Synonyms",ExpressionUUID->"cb3a3e19-c00b-4c82-a5c5-0e803f0c8153",
 CellID->1428214698]
}, Closed]],
Cell[CellGroupData[{
Cell[4123, 115, 120, 1, 29, "TemplatesSection",ExpressionUUID->"8a0988af-bf65-4629-b30e-aeacb857530d",
 CellID->1872225408],
Cell[4246, 118, 149, 2, 157, "Template",ExpressionUUID->"a4158164-1d70-4fc8-8c2c-fea31700e348",
 CellID->1562036412],
Cell[4398, 122, 137, 2, 157, "Template",ExpressionUUID->"99ab4bd3-01a1-4841-a23e-8b5f9fe9d6cd",
 CellID->158391909],
Cell[4538, 126, 136, 2, 157, "Template",ExpressionUUID->"a4fe9f20-765d-47e3-b117-2e7c3e45142b",
 CellID->1360575930],
Cell[4677, 130, 137, 2, 157, "Template",ExpressionUUID->"f14736e5-e15f-4a50-be94-e7dc0e07de4d",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[4851, 137, 108, 1, 29, "DetailsSection",ExpressionUUID->"810dc19e-18ac-4c89-8341-292d80fb9785",
 CellID->307771771],
Cell[4962, 140, 117, 2, 78, "Details",ExpressionUUID->"9d27a21f-cc1b-4e9f-b63f-3d2b0b517324",
 CellID->49458704],
Cell[5082, 144, 124, 2, 78, "Details",ExpressionUUID->"01400ebd-5b6e-49ef-bb78-5c5267afa8a1",
 CellID->350963985],
Cell[5209, 148, 121, 2, 78, "Details",ExpressionUUID->"105dd6b9-3efc-43af-ae62-4505d97bc606",
 CellID->422270209],
Cell[5333, 152, 126, 2, 78, "Details",ExpressionUUID->"b04ee47d-3327-4c90-9fc2-6ccfebaec906",
 CellID->545239557],
Cell[5462, 156, 116, 2, 78, "Details",ExpressionUUID->"0e00c25a-3820-4a0f-a802-96d24172a381",
 CellID->121292707],
Cell[5581, 160, 115, 2, 78, "Details",ExpressionUUID->"69d924b3-a52c-4bbd-ba3e-1110f3675ecc",
 CellID->29314406],
Cell[5699, 164, 117, 2, 78, "Details",ExpressionUUID->"8de86c7b-bcc2-438c-9f67-9acb0df0f156",
 CellID->96001539],
Cell[5819, 168, 133, 2, 78, "Details",ExpressionUUID->"7633b613-2dcc-46ee-9d0a-6a4dca8bf0d9",
 CellID->123278822],
Cell[5955, 172, 122, 2, 78, "Details",ExpressionUUID->"d9ed06d4-7666-4eb1-8716-3434501203c3",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[6114, 179, 117, 1, 29, "SecuritySection",ExpressionUUID->"4658bc7e-74f0-4073-9504-86900ccc4bbf",
 CellID->13551076],
Cell[6234, 182, 1094, 30, 91, "SecurityDetails",ExpressionUUID->"98cad111-8c0b-42f9-838c-9cf200357297",
 CellID->2488900]
}, Closed]],
Cell[CellGroupData[{
Cell[7365, 217, 160, 2, 97, "ObjectName",ExpressionUUID->"4a896283-78ef-4ea9-ab9e-264091c00a84",
 CellID->1224892054],
Cell[7528, 221, 273, 3, 52, "Notes",ExpressionUUID->"4351ca8b-34b8-4ffe-a675-c109467427a6",
 CellID->55248371],
Cell[7804, 226, 956, 22, 117, "Usage",ExpressionUUID->"d010ab56-0ec9-4101-a5be-e93529187581",
 CellID->982511436],
Cell[8763, 250, 601, 15, 41, "Notes",ExpressionUUID->"3d606fcd-433d-4d67-9ef9-f7bf14b124c3",
 CellID->1067943069],
Cell[9367, 267, 610, 15, 41, "Notes",ExpressionUUID->"b6039c9d-cce8-45e2-be56-2502b2a905c9",
 CellID->808899030],
Cell[9980, 284, 467, 9, 41, "Notes",ExpressionUUID->"0ddec283-bd85-4d34-ab5e-0ce4b3f55618",
 CellID->1269807375],
Cell[10450, 295, 2547, 39, 36, "3ColumnTableMod",ExpressionUUID->"a3f2a52e-f28b-422b-a38a-1742fd33e9c8",
 CellID->698312613]
}, Open  ]],
Cell[CellGroupData[{
Cell[13034, 339, 112, 1, 68, "TutorialsSection",ExpressionUUID->"647037d3-6c20-41d2-9184-46ebef8543e5",
 CellID->250839057],
Cell[13149, 342, 100, 1, 26, "Tutorials",ExpressionUUID->"5db9e561-03f2-47fa-a7ae-b030b80958e2",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[13286, 348, 138, 1, 48, "RelatedDemonstrationsSection",ExpressionUUID->"e7c50808-3da8-4a62-a466-d3f8e14e2aba",
 CellID->1268215905],
Cell[13427, 351, 113, 1, 26, "RelatedDemonstrations",ExpressionUUID->"78b4738e-b8d7-4040-9e79-0e8e1839dc5f",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[13577, 357, 120, 1, 48, "RelatedLinksSection",ExpressionUUID->"a05974aa-2d00-4779-8619-868ab1907d96",
 CellID->1584193535],
Cell[13700, 360, 104, 1, 26, "RelatedLinks",ExpressionUUID->"893a84d9-9c9e-400f-b3c8-03a98d12b504",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[13841, 366, 110, 1, 48, "SeeAlsoSection",ExpressionUUID->"854261b9-ae8d-4f15-8c30-0db98304e5f9",
 CellID->1255426704],
Cell[13954, 369, 1050, 24, 31, "SeeAlso",ExpressionUUID->"85c545fc-61ce-42ae-a32b-c01415f3fc3b",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[15041, 398, 112, 1, 48, "MoreAboutSection",ExpressionUUID->"56b4d9ad-831f-469e-b211-ab9c8bde6fcc",
 CellID->38303248],
Cell[15156, 401, 110, 1, 26, "MoreAbout",ExpressionUUID->"56d40386-8ab1-4cc8-a03e-645f32de6461",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[15303, 407, 411, 11, 107, "PrimaryExamplesSection",ExpressionUUID->"733dbecb-6b5c-4ec0-bea2-70a3073cee61",
 CellID->880084151],
Cell[CellGroupData[{
Cell[15739, 422, 243, 5, 26, "ExampleDelimiter",ExpressionUUID->"63609511-7994-4a9a-a999-922b0e7e4a3a",
 CellID->1346429663],
Cell[15985, 429, 115, 1, 33, "ExampleText",ExpressionUUID->"c4808e7e-38d3-4080-a156-c40528bd9a42",
 CellID->810745662],
Cell[16103, 432, 339, 6, 69, "Input",ExpressionUUID->"2e29d155-73fd-440f-ae8c-4eebb2a3cc17",
 InitializationCell->True,
 CellID->25391782],
Cell[16445, 440, 848, 20, 36, "ExampleText",ExpressionUUID->"61ebf329-4491-49e9-bc85-67c2822e6445",
 CellID->670526423],
Cell[CellGroupData[{
Cell[17318, 464, 284, 6, 45, "Input",ExpressionUUID->"6925f07b-e3e5-4bbb-a9d4-0ec796967357",
 CellID->1888611728],
Cell[17605, 472, 938, 28, 39, "Output",ExpressionUUID->"c5467913-7c17-4bf5-af82-c3fd7650823e",
 CellID->303323037]
}, Open  ]],
Cell[18558, 503, 721, 15, 36, "ExampleText",ExpressionUUID->"2ae55c4d-b715-49c4-9c57-151247dcb240",
 CellID->145075508],
Cell[CellGroupData[{
Cell[19304, 522, 264, 5, 42, "Input",ExpressionUUID->"c62a0638-7e74-4911-8e9a-d5903d689b9e",
 CellID->173350358],
Cell[19571, 529, 917, 28, 39, "Output",ExpressionUUID->"e3fd4276-3132-4aff-aef1-e352616660b3",
 CellID->2070836204]
}, Open  ]],
Cell[20503, 560, 847, 17, 36, "ExampleText",ExpressionUUID->"00e3e3f9-85f0-452c-a1e2-e50bc292ba3d",
 CellID->127870626],
Cell[CellGroupData[{
Cell[21375, 581, 424, 10, 45, "Input",ExpressionUUID->"70d50000-4e68-4662-a4e0-b7cbf5749fbb",
 CellID->2066092838],
Cell[21802, 593, 18902, 546, 236, "Output",ExpressionUUID->"300eb266-3d77-42b1-9b2a-d2251bc1928b",
 CellID->422491300]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40765, 1146, 155, 2, 85, "ExtendedExamplesSection",ExpressionUUID->"f5db9e31-3b9c-49c7-b11c-dc0560c06443",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[40945, 1152, 242, 5, 49, "ExampleSection",ExpressionUUID->"fb2d644e-d972-4d9d-9776-48f563c5ee28",
 CellID->1293636265],
Cell[CellGroupData[{
Cell[41212, 1161, 243, 5, 26, "ExampleDelimiter",ExpressionUUID->"17dcd412-bd49-49ca-b177-9f93b0c3ae07",
 CellID->1850734305],
Cell[41458, 1168, 182, 2, 33, "ExampleText",ExpressionUUID->"cf0c3316-cbc0-435b-bf38-43bc23738232",
 CellID->1365170760],
Cell[CellGroupData[{
Cell[41665, 1174, 898, 24, 111, "Input",ExpressionUUID->"53eadd5b-1b0b-4c05-b4a7-82cc0a454ba5",
 CellID->648017437],
Cell[42566, 1200, 687, 21, 39, "Output",ExpressionUUID->"ad4f8cad-72a6-4eaf-b95d-765cb33e4197",
 CellID->403284754]
}, Open  ]],
Cell[43268, 1224, 184, 2, 33, "ExampleText",ExpressionUUID->"5af083ba-2138-43d5-bb03-9a456d28526a",
 CellID->1159046775],
Cell[CellGroupData[{
Cell[43477, 1230, 314, 6, 42, "Input",ExpressionUUID->"3debe769-49cf-4bba-8594-e82d323b1243",
 CellID->130926198],
Cell[43794, 1238, 688, 21, 39, "Output",ExpressionUUID->"370a191b-986e-4cc7-b346-f4a239cc8b61",
 CellID->1055868826]
}, Open  ]],
Cell[44497, 1262, 218, 2, 33, "ExampleText",ExpressionUUID->"791d4eff-2a09-4cc1-903e-0b2cde9f984f",
 CellID->1060524416],
Cell[CellGroupData[{
Cell[44740, 1268, 640, 16, 79, "Input",ExpressionUUID->"c5e44d0c-db3a-4d57-9631-ef38ad777779",
 CellID->169797314],
Cell[45383, 1286, 625, 14, 70, "Output",ExpressionUUID->"8e457eb0-65c4-4eea-9f42-10105f08d37a",
 CellID->627898082],
Cell[46011, 1302, 625, 14, 70, "Output",ExpressionUUID->"12e71247-7110-4f03-b7be-acbf52c262a8",
 CellID->749989293]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46685, 1322, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"4a0c7c63-61aa-4696-9ba0-e224342dccd7",
 CellID->389270466],
Cell[46930, 1329, 913, 21, 36, "ExampleText",ExpressionUUID->"5729bf01-749c-4fd3-8314-8d9f483367ea",
 CellID->305655251],
Cell[CellGroupData[{
Cell[47868, 1354, 406, 9, 45, "Input",ExpressionUUID->"6f4431d9-a966-4d60-ac75-545131ed1a51",
 CellID->1098280400],
Cell[48277, 1365, 961, 28, 39, "Output",ExpressionUUID->"4a6a5bd2-0fbc-47eb-94f4-30604e4717d1",
 CellID->222232631]
}, Open  ]],
Cell[49253, 1396, 722, 15, 36, "ExampleText",ExpressionUUID->"96f41083-eac3-4543-b8f5-783d6b9105db",
 CellID->1190324450],
Cell[CellGroupData[{
Cell[50000, 1415, 313, 6, 42, "Input",ExpressionUUID->"4fae25aa-f61c-4e00-b5e0-3f154f60db39",
 CellID->1260428355],
Cell[50316, 1423, 994, 29, 39, "Output",ExpressionUUID->"10ed1cb4-5754-488d-afd6-41db14f018a1",
 CellID->1532885174]
}, Open  ]],
Cell[51325, 1455, 977, 22, 36, "ExampleText",ExpressionUUID->"de329b76-0b75-4e7a-b036-6be76b4f075b",
 CellID->299507250],
Cell[CellGroupData[{
Cell[52327, 1481, 406, 9, 45, "Input",ExpressionUUID->"99818f20-c953-4c1f-8606-901dd57403c5",
 CellID->330321480],
Cell[52736, 1492, 659, 14, 39, "Output",ExpressionUUID->"723a38a0-f4e3-4129-8aa5-4940ef15bb68",
 CellID->1850735053]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53444, 1512, 243, 5, 26, "ExampleDelimiter",ExpressionUUID->"7bcea0eb-6f6f-4d98-a7a6-09e237faba64",
 CellID->1460308640],
Cell[53690, 1519, 819, 16, 36, "ExampleText",ExpressionUUID->"c8f27bda-e6bc-498b-90e7-b85a68310218",
 CellID->479509400],
Cell[CellGroupData[{
Cell[54534, 1539, 739, 22, 79, "Input",ExpressionUUID->"22a518f4-e179-40fb-8623-ea2ef69480f1",
 CellID->6702970],
Cell[55276, 1563, 992, 29, 39, "Output",ExpressionUUID->"f8244669-86f5-45f9-9299-9ff56457106d",
 CellID->1838014330]
}, Open  ]],
Cell[56283, 1595, 721, 15, 36, "ExampleText",ExpressionUUID->"4780791e-0729-4589-a92b-1a0322cbb405",
 CellID->601223756],
Cell[CellGroupData[{
Cell[57029, 1614, 264, 5, 42, "Input",ExpressionUUID->"f6c1f9c2-bfdf-4304-aa39-f73a62d5731d",
 CellID->1975110569],
Cell[57296, 1621, 1032, 29, 39, "Output",ExpressionUUID->"c84e22d3-755e-4861-a10c-88b137c9d947",
 CellID->1312080660]
}, Open  ]],
Cell[58343, 1653, 543, 7, 33, "ExampleText",ExpressionUUID->"26c24123-d8ea-4ad5-ab53-a279a35ed4f8",
 CellID->363733930],
Cell[CellGroupData[{
Cell[58911, 1664, 420, 9, 45, "Input",ExpressionUUID->"56d8ae58-82ac-4384-9d10-e5e761fbb8a9",
 CellID->779405875],
Cell[59334, 1675, 28467, 476, 203, "Output",ExpressionUUID->"db824f94-ba1e-411f-85e3-8698988d3c7a",
 CellID->1559565747]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87850, 2157, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"e920433c-b886-42c1-837b-537daa2388d8",
 CellID->390745683],
Cell[88095, 2164, 872, 17, 36, "ExampleText",ExpressionUUID->"6497ddde-48d1-45c5-9b9c-8433604906c2",
 CellID->1573199338],
Cell[CellGroupData[{
Cell[88992, 2185, 1281, 36, 111, "Input",ExpressionUUID->"1b7c9910-3329-488f-b5ee-b5eaa6afcbdd",
 CellID->216995536],
Cell[90276, 2223, 1065, 30, 39, "Output",ExpressionUUID->"2482cdb3-d61c-458d-ada8-7302586989de",
 CellID->416269892]
}, Open  ]],
Cell[91356, 2256, 721, 15, 36, "ExampleText",ExpressionUUID->"8400dbff-522e-4b49-8921-54c81cc25143",
 CellID->562216931],
Cell[CellGroupData[{
Cell[92102, 2275, 262, 5, 42, "Input",ExpressionUUID->"b92a7306-8260-4116-92d0-231c136e3e74",
 CellID->42782479],
Cell[92367, 2282, 1086, 31, 39, "Output",ExpressionUUID->"e838fe7f-5276-4cc1-80e0-9a798f040235",
 CellID->1354359852]
}, Open  ]],
Cell[93468, 2316, 544, 7, 33, "ExampleText",ExpressionUUID->"9b81d261-5c14-47cd-a4d7-e16a02c3d3ff",
 CellID->1298578733],
Cell[CellGroupData[{
Cell[94037, 2327, 951, 24, 181, "Input",ExpressionUUID->"cbf0acb7-8750-4e75-b700-9bd4ac0d052c",
 CellID->1106616819],
Cell[94991, 2353, 51953, 863, 203, "Output",ExpressionUUID->"287ae973-e5c2-4ea2-b88b-a470f4262566",
 CellID->1219667924]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[146993, 3222, 243, 5, 26, "ExampleDelimiter",ExpressionUUID->"f8561ec0-e424-4d0e-b732-f73639651609",
 CellID->1270816031],
Cell[147239, 3229, 950, 18, 36, "ExampleText",ExpressionUUID->"40448b61-efa7-4edf-87fc-4727a3a5ea26",
 CellID->1099912994],
Cell[148192, 3249, 629, 17, 77, "Input",ExpressionUUID->"704501f9-7318-4dd1-bd10-9b8593018d62",
 CellID->532479535],
Cell[148824, 3268, 715, 11, 33, "ExampleText",ExpressionUUID->"e6efa631-3605-474b-a454-004b699e01e3",
 CellID->2143469651],
Cell[CellGroupData[{
Cell[149564, 3283, 430, 11, 45, "Input",ExpressionUUID->"fc9771fe-e1b0-4248-bbea-c947b1129622",
 CellID->2056099770],
Cell[149997, 3296, 218, 5, 39, "Output",ExpressionUUID->"3dfe8fc4-565f-4301-8f04-e9ac1fcbb6f1",
 CellID->1370903747]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[150276, 3308, 265, 5, 49, "ExampleSection",ExpressionUUID->"832bd50d-198b-49c4-83f8-373271a2f341",
 CellID->1020263627],
Cell[150544, 3315, 848, 20, 36, "ExampleText",ExpressionUUID->"314e2035-ab52-44b4-8bcc-53667bc6c278",
 CellID->423397492],
Cell[CellGroupData[{
Cell[151417, 3339, 284, 6, 45, "Input",ExpressionUUID->"0625dffb-f057-43aa-9592-9ef01ab5d77a",
 CellID->120966240],
Cell[151704, 3347, 941, 28, 39, "Output",ExpressionUUID->"ef0b494c-41d2-4943-ae9f-b8655eabb66f",
 CellID->936490409]
}, Open  ]],
Cell[152660, 3378, 722, 15, 36, "ExampleText",ExpressionUUID->"c5e9ad77-a78a-48de-9a13-41d54ea70eff",
 CellID->1164065725],
Cell[CellGroupData[{
Cell[153407, 3397, 265, 5, 42, "Input",ExpressionUUID->"fed99015-e143-4c6a-9026-1c42a7afbe8c",
 CellID->1980836260],
Cell[153675, 3404, 888, 27, 39, "Output",ExpressionUUID->"99b5e3ca-9f01-4af2-b5c9-8c0a6d78a08d",
 CellID->736361802]
}, Open  ]],
Cell[154578, 3434, 544, 7, 33, "ExampleText",ExpressionUUID->"0edfae52-b58d-40a7-bfd3-84f75a90e808",
 CellID->1309141233],
Cell[CellGroupData[{
Cell[155147, 3445, 420, 9, 45, "Input",ExpressionUUID->"258900a4-9615-4d56-ade7-e2f6703f407b",
 CellID->1488495006],
Cell[155570, 3456, 45099, 747, 203, "Output",ExpressionUUID->"7e72a24d-6ce7-4e94-ae99-2537efc60ac4",
 CellID->1063834339]
}, Open  ]],
Cell[200684, 4206, 977, 22, 36, "ExampleText",ExpressionUUID->"6080075d-24f0-42ef-9499-5d6952786efe",
 CellID->432741889],
Cell[CellGroupData[{
Cell[201686, 4232, 405, 9, 45, "Input",ExpressionUUID->"93d18d5c-c0af-409b-83c2-70276acf34aa",
 CellID->444715740],
Cell[202094, 4243, 605, 13, 39, "Output",ExpressionUUID->"dfd73eef-7e96-4aea-906c-c60ecd359787",
 CellID->797793906]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[202748, 4262, 244, 5, 49, "ExampleSection",ExpressionUUID->"afdcce4d-edd9-4564-90e7-300827c32e5a",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[203017, 4271, 185, 2, 33, "ExampleSubsection",ExpressionUUID->"a029eac3-956e-4b37-a695-e679e149180f",
 CellID->1757724783],
Cell[CellGroupData[{
Cell[203227, 4277, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"ff6993de-7cba-4f45-9dbe-c45d59afb9ec",
 CellID->790125716],
Cell[203472, 4284, 947, 21, 36, "ExampleText",ExpressionUUID->"e95b3731-6eb4-4539-8591-9a7a6cf9d2fe",
 CellID->1879911356],
Cell[204422, 4307, 536, 14, 79, "Input",ExpressionUUID->"0c8a1a16-5e6c-4854-ad18-16501b610a14",
 CellID->222021257],
Cell[204961, 4323, 848, 17, 36, "ExampleText",ExpressionUUID->"56d5bf09-3a34-4102-91a3-733280614522",
 CellID->1109287923],
Cell[CellGroupData[{
Cell[205834, 4344, 424, 10, 45, "Input",ExpressionUUID->"1d91bc69-a4cd-4cee-9be8-04284e7552fd",
 CellID->1207242174],
Cell[206261, 4356, 18616, 538, 236, "Output",ExpressionUUID->"1b9ce082-3023-47de-b78a-93cfee78fa97",
 CellID->139519321]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[224926, 4900, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"43f697f3-5cc9-42a4-a832-04930e9e0c0c",
 CellID->108088849],
Cell[225171, 4907, 996, 21, 36, "ExampleText",ExpressionUUID->"a905f31c-fe31-4ae2-a2d4-0b2ea005a82b",
 CellID->408554016],
Cell[226170, 4930, 693, 18, 113, "Input",ExpressionUUID->"8a149421-995d-42c5-bff1-577fc3816114",
 CellID->1156768684],
Cell[226866, 4950, 847, 17, 36, "ExampleText",ExpressionUUID->"e7743994-f3d4-41bd-97ac-0c58f7eeaf83",
 CellID->546554244],
Cell[CellGroupData[{
Cell[227738, 4971, 424, 10, 45, "Input",ExpressionUUID->"b3b25007-bc1d-4074-8a6a-e6b2b24222e9",
 CellID->824823908],
Cell[228165, 4983, 18685, 542, 235, "Output",ExpressionUUID->"a125692a-bfcb-4c89-9c49-da0ac646b95c",
 CellID->1635574534]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[246901, 5531, 248, 5, 49, "ExampleSection",ExpressionUUID->"d71a2c1f-e077-4a3e-bcbf-63cbe106c868",
 CellID->258228157],
Cell[247152, 5538, 259, 5, 29, "ExampleSection",ExpressionUUID->"fd2851cf-6093-476f-96ee-8a9459dd83f9",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[247436, 5547, 252, 5, 29, "ExampleSection",ExpressionUUID->"07b35a62-59b8-4a86-9d87-87ae44c39f38",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[247713, 5556, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"5db62abd-ed41-4ef1-a757-cbbe96ce4fb1",
 CellID->437359515],
Cell[247958, 5563, 199, 2, 33, "ExampleText",ExpressionUUID->"d2819c3d-1f1d-40a0-9863-b03c46f4b6d9",
 CellID->1792038635],
Cell[CellGroupData[{
Cell[248182, 5569, 1091, 30, 111, "Input",ExpressionUUID->"529b7e12-4bb9-427a-9be7-c9a298431a91",
 CellID->1328843775],
Cell[249276, 5601, 639, 12, 85, "Message",ExpressionUUID->"af741653-9797-41ca-b234-942730c5dd55",
 CellID->2041298468]
}, Open  ]],
Cell[249930, 5616, 374, 9, 36, "ExampleText",ExpressionUUID->"a1d8e45c-5c3b-4e9d-9a1e-34a5ba444c6b",
 CellID->1086330514],
Cell[CellGroupData[{
Cell[250329, 5629, 1150, 30, 143, "Input",ExpressionUUID->"07e4d326-c0fc-4f59-99ff-553921a7e16c",
 CellID->1178027860],
Cell[251482, 5661, 1007, 31, 70, "Output",ExpressionUUID->"938a0e84-c8cd-4414-ba5e-d7446673fe81",
 CellID->1758685991]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[252538, 5698, 242, 5, 26, "ExampleDelimiter",ExpressionUUID->"73d54cd6-2203-446e-a5b1-4c496d34534a",
 CellID->877893315],
Cell[252783, 5705, 262, 3, 33, "ExampleText",ExpressionUUID->"56e011b3-6902-4377-bc0f-f1f08d2bb1a3",
 CellID->1650619546],
Cell[253048, 5710, 1192, 31, 143, "Input",ExpressionUUID->"c1b9ba9c-81de-473b-b619-dca39d95b9d5",
 CellID->1025267551],
Cell[254243, 5743, 361, 7, 33, "ExampleText",ExpressionUUID->"2dd5a280-1c9a-4a61-b893-3f7a5acf5ef1",
 CellID->1509361121],
Cell[CellGroupData[{
Cell[254629, 5754, 359, 8, 45, "Input",ExpressionUUID->"73ca0e76-b5e9-4810-9863-27603863c8eb",
 CellID->1473048791],
Cell[254991, 5764, 388, 10, 39, "Output",ExpressionUUID->"2d478739-350d-4978-ab4b-d57f9c9580ad",
 CellID->1118174932]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[255418, 5779, 257, 5, 49, "ExampleSection",ExpressionUUID->"44555762-fb64-4c85-838a-4f76c9cb32d0",
 CellID->1653164318],
Cell[255678, 5786, 249, 5, 29, "ExampleSection",ExpressionUUID->"99670570-bf05-489a-aff7-239981f2cc11",
 CellID->589267740]
}, Open  ]],
Cell[CellGroupData[{
Cell[255964, 5796, 128, 1, 120, "DesignDiscussionSection",ExpressionUUID->"9885e9bb-2175-4818-b183-fc40f16311aa",
 CellID->1775809863],
Cell[256095, 5799, 107, 1, 26, "DesignDiscussion",ExpressionUUID->"c00e5de3-261e-4b70-8556-e8508f9c523b",
 CellID->308641435]
}, Open  ]],
Cell[CellGroupData[{
Cell[256239, 5805, 128, 1, 48, "ApplicationNotesSection",ExpressionUUID->"e8ddc3bb-4216-44e6-a2b4-7ab0acd51df2",
 CellID->1163590540],
Cell[256370, 5808, 108, 1, 26, "ApplicationNotes",ExpressionUUID->"72a5bb39-5ac0-411d-8aeb-d2a71bdf3ce4",
 CellID->1480116198]
}, Open  ]],
Cell[256493, 5812, 113, 1, 48, "TestCasesSection",ExpressionUUID->"1725b690-b910-40ae-bbcc-6d8d2ac1b594",
 CellID->725748110],
Cell[CellGroupData[{
Cell[256631, 5817, 120, 1, 49, "FunctionEssaySection",ExpressionUUID->"beaf6e4a-a093-4ac6-8b78-6346312230ef",
 CellID->37427227],
Cell[256754, 5820, 104, 1, 33, "FunctionEssay",ExpressionUUID->"fffe77f6-0912-45d0-890a-2f8aeac8fd35",
 CellID->356990964]
}, Open  ]]
}
]
*)

